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64 DECLARATIONS 
11 Introduction to RMS Journaling 
460 RMSGETJNL = Get Journal Name 


GET_JNL = Common Get Journal name routine 
RMSRTVJNL = Retrieve Journaling Info 
RMSASSJNL = Open Journaling for a file 
OPEN_JNL = Common open journal channel 
RMSCONJNL = Connect Journal 

RMSMAPJNL = Write Mapping Entry 

RMSWRIJNL - Write Journa Tt 

RMSWRTJNL_OBJ = Write Journal wry with OBJECT_ID Flag 
RMSFRCJNL = Force ALL Journal bntr es for a buffer 
FORCE_JNL = Force Journal Entries 

RMSDSCJNL = Disconnect IRAB Journal Structures 
RMSDEAJNL = Close zournal ing on file 

RMSALLOC_MJB = Alloc and init MJB ; 
RMSWRITE_MJB - Write Miscellaneous Journaling Buffer 
RMSFORCE_MJB - Force MJB Entries | 
RMSALLOC_RJB_BDB =- Allocate RJB, Journal BDB 

RMSAT_JNC_RETORD = Write AT Entry for Records 
COMMON_FILE_AT = Get common AT file data 

RMSAT_COM_RAB = Get common AT record data | 
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: Facility: RMS-32 

Abstract: 

: This module provides an interface between RMS and the 
3 Common Journaling Facility. 


; Environment: 


VAX/VMS Operating System 
; Author: Jeffrey W. Horn, Creation Date: 17-Mar-1982 
; Modi tied By: 
V03-044 JwWwT0162 Jim Teague 8-Mar-1984 
Disable RMSRTVINL Ls now. 
V03-043 JWT0160 29-F eb-1984 
Remove calls to RMSDERL EF. 
V03-042 DASO014 David Solom 08-F eb-1984 


Specify ACESM_ NOPROPAGATE tor RMSJNLID ACE (they should never 
be propagated, as they are meaningful to only one file). Fix bug 
that journal name ACES were not being marked hidden/protected. 


v03-041 DASO013 David Solomon 21-Dec-1983 
Support BRO access “tor journaling. 


VO3-040 JwT0141 gaque 11-Nov-1983 | 
Change IFBSV_ RUM’ t to fe V_ONLY_RU 


| 
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V03-039 KPLOO15 Peter Ligberyireh 27-0c¢ t-1983 
ix bug introduced in V05-038. Symptom was breaking relative 


file extend journaling. 


v03-038 KPLO014 Peter Lieberwirth 20-0 t-1983 
If doing Al or BI pecovery. avoid allocating [RAB JNLBDB 
and buf ef in CONJNL s is due to interactions with 
setting IFB BIO and a recovery process being the only type 
of process permitted to journal : file ages for mixed 
block and record access (BRO). ater is an FTLS$_DEALLER 
bugcheck because a JNLBDB gets allocated and dropped when 
a is allocated in RMSWRITE. (Bugcheck happens on 
close.) 


V03-037 KPLOO13 Peter Lieberwirth 11-0¢ t-1983 
Deallocate EFNs after finishing with them. Improper use 
of EFNs is causing hangs in peyne® situations. Pax problem 
with non-page aligned ALDJNLBUF allocations. 


V03-036 DASO012 David Solom 27-Sep-1983 
Preserve R3 in RMSWRTINL (ISAM assumed it was voreserued). 
Corrected some comments. 


V03-035 DASO011 David Solomon rg 
Correct overzealous fix to RMSDSCJNL in vO390 4. Pi. test in 
RMSMAPJNL that decides whether or not this is an open entry. 
Return RMS$_JNF if no journal name specified, vs RMS$_NOJ. 


v03-034 DASO010 David Solomon 25-Aug-1983 
Fix accvio when no qoyeres name is specified. Set up R10 before 
call to RMSRETINLBD (also caused an accvio). Use correct ACE 
name for RMS journal names. Replace source. 


fie 
V03-033 LJA0090 Laurie J. Anderson 18-Aug-1983 

1) Fix the writing of the journal entries to fot stuff in 
the version number as VER1 but rather as the constant 
MAXVER so that when the versions are increased (as | 
just did) the new version number is filled in 

2) FILL in a new (RJR version V04-000 field = for AT journals 
the FAB/RAB user CTX field, so that it is written to 
the journal for the users discretion 

3) Now that the FAB is available when filling in the RJR 
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_ 


° 
lL in some create/open/close 
ls in some RJR RAB data. 

d in with initial user 


call, a from IFAB is used t 
ua RMSAT * JOURNA UR ECORD fi 
RMSAT_COM_RAB added to fill AT reco 


¢ 
o fil 
l 
r 
search and operation input. 
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1 use the completion status from it, rather than just 
: stuff success. 
S te v03-032 KPLOO12 Peter Lieberwirth 30-Jul-1983 
Bea Allocate a bigger JNLBDB Buffer id Al journal ing a relative 
fy e. The larger buffer will se used for the prolog if 
3 ! the file is created. 
8 1 v03-031 KPLOO11 Peter Lieberwirth 24-Jul-1983 
3 : Pitt *, si recor tenres AT youre’ record during MAPJNL 
3 1 

1 
3 1 

1 
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Also, fix error paths and block-10 success status path in 
RMSCONJNL. 


Also, use RMSALDJNLBUF and RMSRETJNLBDB to allocate and 

deal locate journalino-specific BDB/Buffers. Can't just use 
ALDBUF etc... because then the BDB will be Linked into the 
IFABs BDB List = and could get used for file 10. Also, 

now the file-related AT BDB/Buffer can remain allccated for 
the duration of the file open - previously it was deallocated 
at common create/open exit because all BDBs on the IFAB 

List were deallocated at that time. 


Add some commentary about RMS Journaling 


v03-030 KPLO010 Peter Lieberwirth 1=Jul-1983 
Fix FORCE_JNL to always return status. 
v03-029 KPLO009 Peter Lieberwirth 16-Jun-1983 


Fix some bugs. Add routine to write AT journal records for 
record operations. Clean up RMSMAPJNL to let it write AT 
file operation records. Remove COP and CQE in favor of CJF. 
Move misc IFAB jnl flags to JNLFLG2. 


v03-028 TSK0052 Tamar Krichevsky 5-jun-1983 
Fix bugs introduced by V03-26. Move module to RMSRMS_JOURNAL 
psect. Fix broken branches to RMSMAPERR. 


V03~-027 KPLOO008 Peter Lieberwirth 30-May-1983 
Fix bugs introduced in V03-026 and earlier. 
v03-026 KPLO007 Peter Lieberwirth 26-May-1983 


Support new more robust RJR format. Fix cyese in KPLOOO1. — 
Turn on sequential file journaling. Rework RJB/BDB allocation. 


v03-025 TSK0050 Tamar Krichevsky 25-May-1983 
Modify RMSCONJNL to allocate the proper size journal buffer 
for sequential files. Currently, the user specified bucket. 
size is used to determine the buffer's length. For sequential 
files, the buffer must be large enough to contain any one 
record from the file. : 
Cleanup calculation of overhead for journal buffer. 


v03-024 DASO009 David Solomon 11-May-1983 
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8 Fix WRTACC check in RMSASSJNL (BBC to BBS). Add missing ‘‘#"’ 
in front of two Literals that were causing accvio’s. Fix 
0 error path on failure to assign channel to RU journal. Clear 
0 peices to RJB upon its deallocation. Don't allocate IRAB 
0 T journal buffer if not AT journaling. Fix ALLOC_AJB to 
0 acquire space from same page as IFAB. Do better job at 
3 calculating required size of MJB. 
0 v03-023 KPLO0006 Peter Lieberwirth Pig tly 
0 Turn on $WRITEJNL call. Add SWRMODDEF. Fix bug on 
3 error path into RMSDEAJNL. 
000 v03-022 KPLOO005 Peter Lieberwirth 1-May-1983 
000 Delete obsolete MJB definitions. 
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V03-021 KPLO004 ter Lieberwirth 1-May-1983 
Fix another prehlen with SWRITEJNL call. 


v03-020 KPL0003 Peter Lieberwirth 11-May-1983 
Fix call to $WRITEJNL. 


v03-019 KPLO002 Peter Lieberwirth 30-Apr-1983 
a Sree macro definition. Flesh out WRITE_MJB 
routine. 


v03-018 peers Peter Lieberwirth 29-Apr-1983 
Allocate miscellaneous journaling buffers or 1FB and IRB 
where oo oe ead = Generalize cleanup so these always get 
deallocated. Add stub RMSWRITE_MJB routine. 


V03-017 JWHO221 fet trey W. Horn 26-Apr-1983 
If in poey | allow BRO access. Also temporarily, enable 
both Al and BI journaling durring recovery. 


V03-016 JWHO205 Jeffrey W. Horn 11-Apr-1983 
Implement journal id ACE. Also add grotectes and hidden 
bits to al 

v03-015 — David Solomon 01-Apr-1983 

Save R2 in RMSWRTINL (for ISAM) . 

V03-014 RASO135 Ron Schaef 17-Mar-1983 
More corrections to RASOI 32. for registers and RJR$_ names. 

v03-013 RASO135 n Schaefer 17-Mar-1983 
Corrections to RASO SS for registers and RJR$_ names. 

V03-012 RASO132 n Schaefer 16-Mar-1983 


Merge $RMSRDEF ieee SRJRDEF and revise the interface 
for RMSWRTJNL for easier use from ISAM. 


V03-011 JWHO185 Jeffrey W. Horn 11-Feb-1983 
Set WRFLG$V_BI on RU journal entries. 
~ se the perm FWA to previee youre entry security and 
o fill in the map pping entrie 
it file is opened UFO then disable journaling for this open. 


V03-010 JwHO180 Jeffre 03-Feb-1983 
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POPIPOPININMINIMND) 3 9??? MP OOOODOODOOO0OO0OOWOO OO OOOO 00 0000 0909 090008 SIN NN NNN 


CONAUE AN 0 OO NOUS WN 0 OD NAME WN OS OD NAME WN 0 OO NAW EWN CO OONOAU SEW 
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: Change references to RIRSC _MAPLEN from byte to word. 
0 V03-009 JWHO173 Jeffrey W. Horn 24-Jan-1985 

000 5leen up status code returns 

000 Use BKS instead of MRS to allocate journal BDB. 

3 0 Allow ISAM journaling. 

0 8 V03-008 JWHO167 Jeffrey W. Horn 10-Jan-1983 

000 Implement IFB recovery option byte. 

Fill in file organization in mapping entry. 

000 v03-007 JWHO15S Jeffrey W. Horn 33-Dec-1982 

000 Seperate journal names into three seperate ACEs. 


D 16 
RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:13 VAX/VMS Macro v04-00 P 5 
v04-000 og BreEp-1984 16:51:57 LRMS SRCTAMOGOURME maR:1  fe9° (3) 


Prevent puyrnet sae on Sequential and Indexed files. 


For block io, do not create journal BDB and buffer. 
V03-006 JWHO154 Jeffrey W. Horn 13-Dec-1982 
Define ACESC _JNLNAMS thenperary} 
v03-005 Junot 5¢ Jeffrey W. 22-Nov-1982 
Write journal entries with the "VRFLGSM. LOCK attribute. 
V03-004 JwHO128 Jeffrey W. Hor. 15-Nov-1982 
Change SS$_NOCJF code. to SS$_ IVSSRQ. 
V03-003 JWHO116 Jeffrey W. Horn 28-0c t-1982 
If in RCP then don' t perfom any journaling execpt AT. 


Remove CALLS to CJF services and replace with macros. 
Change Logic in FRCJNL which checks for an active RU to 
reflect changes in RUF. 


V03-002 JWHO108 Jeffrey W. Horn 23-Sep-1982 
Remove sadiettute tans ps | ACL ACP attributes. 
Fix problem with a S —- for RJB deallocation. 
Clean up status code re 
Redefine journal names (FWAST _XxJNLN) as .ASCIC 
strings. 
Implement new RMS journaling record (RJR). 
Use RMS$GETBLK and RMSRETBLK instead of RM$GETSPC and 
RMSRETSPC when somes and deallocting the RJB. 


V03-001 JWHO107 ° W. Horn ae conte 
Redefine ACL ACP eee utes to ATRSC_USERLABEL which is a 
aan Add a .WEAK for CJFSGETJNL. “Clean up status code 
returns. 
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094 1} a «SUBTITLE Introduction to RMS Journaling 
8 2 18 : RMS Journaling Manager 

04 15 ; This module contains routines used to journal RMS operations. Other modules 
4 16 ; containing journaling routines (not necessarily an inclusive List) are: 
$004 18 : RM3JOURNL.B32, RMIJOURNL.MAR, RMOCRECOM.MAR, RMOBUFMGR.MAR, 
Bee } : RMOEXTEND.MAR, and RM2CREATE.MAR 
444 1 ; The data structures are defined in: 
ta ‘ ; RMSINTSTR.MDL and the format of the RMS Journaling Record (RJR) is 
BaRe ¢ ; described in RMSFILSTR.SDL. 
+49 $ : The general flow of journaling control is as follows: 
0004 8 ; 1. When a file sarked for journaling is accessed, connections are made 
0004 7: to the journals specified in the file's header in RM$ASSJNL. Certain 
Bone $39 3 data structures are allocated at this time also. 
0004 336 : la. If the file is being created, the data structures are allocated earlier, 
000 a2 3 and the JNLXAB is interrogated for pouraes names. If no journal names 
0004 334 ; are specified in the XAB, CJF is asked for default journal names. This 
Boo 334 : is done in RMSGETJNL. 
0004 37 : 2. RMSMAPJNL is called to write entries to the journals at OPEN/CREATE/CLOSE 
0004 $35 3 time. These entries contain the full filename and other information. 
0004 a 3 These entries are used when the journal must be interrogated for file 
Babe a79 3 names, and to associate a filename with a journal ID. 
0004 4g : A journal ID is a unique identifier associated with a journaled file 
0004 43 ; (it is kept in the file header in a hidden, protected, access control 
0004 44 ; entry). It is used in most RMS journaling records so that the full 
0004 45 ; filename need not be kept in all entries. It is also used as a 
0004 46 ; short-hand identifier to search a journal for RMS entries without 
0004 47; having to fully specify the filename as originaily journaied. 
ee 
0004 350 : 3. RMSCONJNL is called at connect time to allocate record-oriented RMS 
0004 1 2 ournaling structures. These include buffers and buffer descriptors. 
0004 26 3 hese structures are deallocated at disconnect time in RMSDSCJNL. | 
0004 53; RMSDSCJNL also forces to the journal any audit-trail journal entries 
0004 54; written to CJF but not ret necessarily forced to the actual journal 
bob 22 ; (IE the entries may still be in a CJF buffer.) 
0004 35 : 4. During the course of RMS record operations journal entries describing 

bbe 8 3 file accesses and modifications are written to the appropriate journals. 
0004 60 ; ISAM Al and BI operations are journaled by writing copies of the — 
0004 61; modified buckets to the journal. The buffers used for these entries 
2004 $¢ ; are as follows: 

004 364: Al - the buffer used is the actual data bucket that is written 
2004 rH 3 to the file 

04 67 : BI - the buffer used is an extra one allocated at the same time 
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O94 rt: the data buffer is allocated 
8 A Both buffers are pointed to by the BDB. 
0004 i ISAM Al and BI operations are journaled at the bucket-level because 
0004 7 there was no way found to journal on a record basis and ensure that 
Bebe ee RFAs would be restored upon recovery. 
0004 7 ISAM tpeevery unit operations are journaled by writing information 
0004 7 describing the modified record to the journal. The ISAM code treats 
Bae 78 record operations in recovery units in a special fashion: 
$502 $SDELETEs do not delete the record - the record is merely 
+44 marked for deletion. 
0004 SUPDATEs never shrink the size of the record - extra space 
0004 corresponding to the original size of the record is kept 
BpRe and described by special fields in the record itself. 
0004 The reason for never deleting space in JSAM RUs is to ensure 


there will always be space in the bucket if the record 
must be rolled back in. We don't want to invent more 
special case ISAM bucket split code. The RFA basis of the 
journal entry also precludes too much bucket entropy before 


DONAUE WN O ODN UE WN) $$ O OM NOUS WhO” 


Bebe recovery. 

0004 Sequential and Relative file journaling is done on a record basis. 
0004 A record journaiing buffer is allocated at CONNECT time, and this 
0004 buffer is used to build the record used to describe the change needed 
Bebe to undo or redo the operation. 

0004 Audit-trail journaling is done on a file and record level. A special 
0004 BDB and Buffer is allocated off the IFAB to contain file related 

0004 audit-trail information. A journaling buffer descriptor/buffer 

0004 is allocated off the IRAB to collect and format record-related 

Boo audit trail information. 

0004 In order to ensure ISAM AI recovery, SEXTENDs must be journaled. 

0004 A special extend buffer descriptor/buffer is allocated off the 

0004 IFAB = the journaling record to describe the extend is built in 

0004 and written from this buffer. Sequential and Relative Al extends 
Bebe are journaled in the same fashion. 

68 r 5. RMS Journaling Data Structures 


RJB - The RJB is allocated by ASSJNL or CRECOM, and contains — 
the channels assigned to various journals. Flags indicating 
connections to journals are also present. 


IFB JNLFLG = This byte is a copy of the file header byte which 
indiates what types of journaling the file is marked for. 


tt 4 A~QOOCDOOOOCOCOCOCOOOOOO OO OWMWMcoccoccacn-~ 


IFB JNLFLG2 = This byte contains miscellaneous run-time IFAB related 
journaling indicators. 


IFBSL_JNLBDB - This oe points to a BDB and buffer that is used for 
file related AT journaling. 
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4 625; 
| 094 4 § 3 IFBSL_ATJNLBUF = This field points into the buffer pointed to indirectly 

4 627 ; by IFBSL_JNLBDB. This field points directly to the RJR within 
Ope Pr 8 : the buffer. 
age 430 ; RJR = RMS Journaling Record. The format of the RMS data written to 
004 431; the journal. It is comprised of a common overhead, and several 
0004 4 ¢ 3 different formats following the common overhead that are used 
+444 ? ? 3 for different journaling functions. 
0006 435 ; cyrrentsy implemented: FILE, RECORD, BLOCK, BUCKET, EXTEND, 
444 : § 3 AT_RECORD. 
0004 438; MJB - Miscellaneous Journaling Block This is used to describe 
0004 439 ; miscellaneous journaling records and the information needed 
0004 440 ; to describe the WRITEJNL request. The MJB is written by 
94 ree 3 RMSWRITE_MJB and is forced to the journal by RMSFORCE_MJB. 
Behe cis ; MJBs are currently used for AT and Extend entries. 
0004 445 ; IRB$L_ATJNLBUF = points to an MJB/Buffer used to write record level AT 
0004 446 tri 

: entries. 
0004 447 ; 
0004 448 ; wig MJBs and BDBs? Good question. The BDB related design is good for 
0004 449; writing buffers containing actual file data to the journals. The 
0004 450; MJB is used when descriptive entries not directly related to file 
0006 451; data are written. 8DB/Buffer fits into the 10 system concept and 
0004 $36 3 ISAM Al and BI benefits from the overlap. MJB/Buffer fits into 
0004 453; the CJF design better. The MJB describes the WRITEJNL inputs, 
0004 454 ; basically. The only counterintuitive setup a eae is _— ; 
0004 455: file-level descriptive entries via BDB and not MJB. The reason for this 
j s tha was originally set up S way. 

004 456 is that MAPJNL LL t thi 
004 457 ; 
0004 458 ;-- 
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000 RMSGETJNL = Get Journal Name -SEP-1984 RMS.SRCJRMOJOURNL .MAR; 1 
094 269 ~SBTTL RMSGETJNL = Get Journal Name 
4 106 p++ 
8 rhe 3; RMSGETJNL = Get Journal Name 
004 465; This subroutines gets the journal names to use from either CJF 
004 £08 $ or the process-based default journal names. It then proceeds to 
004 467; set up the attributes for the file creation. 
004 468; 
0004 $98 : - 
00064 470 ; Calling sequence: 
9 471 ; 
004 hh 3 BSBW RMSGETJNL 
0004 473; 
0004 474 ; Input Parameters: 
0004 475; 
0006 476; BS - IFAB address 
0004 477; R10 ~ FWA address 
0006 478; 
0004 479 ; Implicit Inputs: 
0004 480; 
0004 481 ; IFBSB_JNLFLG - File'’s Journaling Flags 
0004 rt) 3 FWASL_ - féle's Owner UIC 
0004 483; FWASQ_xxJNL, FWAST_xxJNLN = may be preset by XAB processing to contain 
0004 484 ; some journal names. 
0004 485 ; 
0004 486 ; Output Parameters: 
0006 487; 
0004 488 ; R1=R4 Destroyed 
0004 489 ; : 
0004 490 ; Implicit Outputs: 
0004 491; 
0004 $36 ; FWASQ_xxJNL, FWASQ_xxJNLN = Set to journal name(s). 
0004 493; 
0004 494 ; Completion Codes: 
0004 495 ; 
0004 496; JNF - If no journal name found for a particular IFBSB_JNLFLG bit, 
0004 497; STV will contain CJF status from $GETJNL. 
0004 498 ; 
0004 499 ; Side Effects: 
0004 500; None. 
0004 44 3 
0004 0§ 37° 
004 28 
004 04 RMSGETJNL:: 
f 7E 01 DO 0004 05 MOVL #1,-(SP) ; anticipate success 
16 GOAO C9 =02—«éE:~«C0007 = s«506 BBC #1FBSV_BI,IFBSB_JNLFLG(R9) ,10$ : branch if no BI bit 
52 08C8 CA YE 000D 07 MOV FWA$Q_BIJNL(R10),R : fwa bi descr 
53 O8E0 CA 9 bots 08 MOVAB FWAST_BIACE(R10),R ; fwa bi buffer 
54 02 8 001 509 MOVL #CJFS BI,R4 ; journal type code 
903s QOO1A 510 BSBW set Aa 3 get journal name 
0 28 E8 001D 11 BLBS RO, T0$ ; get out on error 
6— 5 DO 00 ; \¢ MOVL RO, (SP) 3; remember error code 
16 00AO0 C9 —=s:«OO3 1 $8 14 10$: BBC #1FBSV Al 1tes8 JNLFLG(RI) ,20$ : branch if no Al bit 
26 08D0 CA —E 0029 15 MOVAB FWASQ_AIJNL(R1 J.R ; fwa Al descr 
5 O8F4 CA 9E OO2E 516 MOVAB FWAST-AIACE(R10),R ; fwa Al buffer 


a 


RMOJOURNL RMS Journaling Manager 
v04-000 RMS$GETJNL = Get joutnat Name 
54 t 3 17 
REF 
ce ee 
6E 0 00 00 ; 9 
16 QOAO C9 =: 04 4 a0 F ¢ 20$: 
2g O8D8 CA —E 9045 
5 0908 CA 9 Boer 4 
54 604 4 O4F 5 
90s6 Bae 2 § 
03 50 €8 005 
6— 50 »d0 0058 8 
058 
092C CA O1FB CA 00 0058 0 30$: 
0930 CA O1FC CA BO 4904 531 
am 
091C CA 0E€000820 8F DO 0074 23 
007D 534 
007d 535 
007D 536 
85 BO 007D 537 
85 1F 860 poe 538 
85 O91C C DE 008 539 
0088 540 
0088 = 4541 
50 8€ 00 00868 246 50$: 
0150 €9 OO8E 54 
05 0091 544 
Bees 545 
OOAO C9 «694 = (009 546 60$: 
0096 547 
OOOOO0O00'EF 17 0098 548 
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IFB$B_JNLFLG(R9) 
JNF ,R 
RMSMAPERR 


1 
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1 
4) 
; journal type code 


GET sf ; get journal name 
RO,20$ 3 get out on error 

RO, (SP) ; remember error code 
#IFBSV_AT, IFBSB_JNLFLG(R9) ,30$ ; branch if no AT bit 
FWASQ_ATJNL(R103,R ; fwa AT descr 
FWAST_ATACE(R10),R ; fwa AT buffer 
#CJFS_AT,RG ; journal type code 
grt jt ; get journal name 

RO, 30$ 3 Continue on success 
RO, (SP) ; remember error code 
<FWAST_F IBBUF +F IBSW_FID>(R10) ,FWAST_FID(RI0) ; gut fid in id ace 
<FWAST—F [BBUF +F IBSW-F1D+4>(R10) ,<FWAST_F1D+4>(R10) 
_S TIMADR=FWASQ_ID_DATE(R10) ; get current time 
#<<<ACESM_ PROTECTED + ACESM_HIDDEN + ACESM_NOPROPAGATE> - 

@ <ACESW_FLAGS*8>> + - 

<ACESC_JNLID @ <ACESB_TYPE*8>> + - 
FWASS _TDACE>, FWAST_IBACE(R10) 

#FWASS_TDACE, (R5)+ ; set attribute Len 
#ATRSC_ADDACLENT,(R5)+ ; set attribute type 
FWAST_TDACE(R10),(R5)+ ; set attribute address 
($P)+,RO 3; get status code 

RO, 60$ 3; skip if error 


; turn off journaling 
journal not found 
go map the error and retur | 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Page 1 
v04-000 GET_JNL = Common Get Journal name routin ate 7 98: 185 RMS .SRCJRMOJOURNL .MAR; 1 ° (3) 
Vy 29 -SBTTL GET_JNL = Common Get Journal name routine 
Al 5 p++ 
“I 27 ; GET_JNL = Common Get Journal name routine 
OA1 55 : If XAB processing did not get a particular journal name, then ask 
Raat 2$ 3; CUF for one. . . 
Boal 888 calli 
; Calling sequence: 
00A1 22) 3 . 
0OA1 560: BSBW = GET_JNL 
0A1 61 ; 
OA1 $6 ; Input Parameters: 
00A1 63 ; 
QOA1 564 ; R - Pointer to FWASQ_xxJNL (fwa journal name descriptor) 
Q0A1 565 ; g - Pointer to FWAST_xxJNLN (fwa journal name buffer 
QOA1 566; R4 - CJFS$_xx for the Journal type 
Baal 2 3 R5 - Address of first free slot at end of ACP attribute List 
QOA1 569 ; Implicit Inputs: 
OOA1 570; 
QOA1 571 ; FWASL_UIC File Ounership UIC. 
Q0A1 276 : FWASQ DEVICE Descriptor of Device name 
Beal a7 3 FWASL_ATR_LIST Atribute List for create 
QOA1 575 ; Output Parameters: : 
QOA1 576; R5 New free ACP attribute List free slot. 
O0OA1 577; 
00A1 578 ; Implicit Outputs: 
O0A1 579; : : 
OOA1 580 ; FWASQ_xxJNL, FWAST_xxJNLN = filled in 
O0AI 381 : FWAST-ATR_LIST - May have journal name attributes added. 
00A1 28S ; Completion Codes: 
QOA1 584; Any CJF from $GETJNL. 
QOA1 585; 
O0OA1 586 ; Side Effects: 
QOA1 587; None. 
QO0A1 588 ;-- 
OOA1 589 
QOA1 590 GET_JNL: 
QOOA1 591 
Q0A1 238 3 ; 
0 oi 237 3: If no journal name from XAB processing, ask CJF for one 
7E 01 DO QOA1 595 MOVL #1,-(SP) 3 assume success 
$8 95 O0AS 596 TSTB (Rd) ; name Length zero? 
2 12 hy 597 BNEQ 208 ; no branc i 
62. 10 3€ OQOA 238 MOVZWL #FWASS BIJNLN, (R2) 3 set up descriptor 
04 A2 04 A3 DF 0 99 MOVAL ACEST RAS IM NAACRS) .4(R2) P 
28 AA OD 0B 600 TSTL FWASL_UIC(R10) : file uic specified? 
90 1 08 oR) BNEQ 10 : branch ° 
51 00000000 * 9F D 08 6 § MOVL a*#CTL$GL_PCB,R1 ; get PCB address 
28 AA =00BC C1_—soOD 08 693 MOVL  PCBSL_UIC(R1S ,FWASL_UIC(R10) > get UIC from PCB 
OC oR? 10$: S$GETJNL_S - z: call CJF 
0C 606 DEVNAM = FWASQ_DEVICE(R10), - 
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v04-000 GET_JNL = Comkon Get Journal name routin $28 SEP= 1984 98; Hy RMS .SRCJRMOJOURNL .MAR; 1 7” 
oc rat4 C = FWASL_UIC(R10), - 
4: 6 S JNLTYP = RG, = 
C2 60 JNLNAM = (Re), - 

Boe o19 RSLLEN = (R2) 
6— 50 »d0 00D7 ol¢ MOVL RO, (SP) 3 save return code 

ODA 61 

ODA 614; 

aaa oF ; Construct ACE to store journal name and add to attribute List 

QODA o15 ASSUME ACESC_BIJNL EQ CJFS_B 

Bpee 913 ASSUME ACESC"AIJNL EQ oir ese. -BIJNL + 1> 

aoe $33 ASSUME ACESCIATJNL EQ <ACESC"AIJNL + 1> 
63 6¢ 04 «BI SODA 621 208: ADDB3 eacest ‘Brie (R2), (R35) 3: fill = ACE size 
O1A 54 90 pODg 6 ; MOVB 4,ACE$B ; move type into ACE 
0600 8F BO OOE 6 MOVW aACESn RYDDENLACESH_ PROTECTED,=- 3 move ines into ACE 
02 A3 OOE6 624 case PLA 
85 63 9B OOE8B 625 MOVZBW oe 3 move atr len into List 
85 1F BO OOEB eg8 MOVW CHS) TR ADDACLENT, (R5)+ ; move atr type into List 
85 53 DO OOEE 627 MOVL R3,(R53+ 3 move atr addr into List 
50 8E& DO OOF! 628 MOVL Repye: RO 3; restore code 
05 OOF4 629 RSB 
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ger 1 iets 90: 5:1 AX/VMS 
jeve Journaling Info ~SEP=1984 16:21:5 RMS .SRC 
-SBTTL RMSRTVINL = Retrieve Journaling Info 


; RMSRTVJNL = Retrieve Journaling Info 


Ma v04-00 p 1 
Hac ) age 


r 4 
MOJOURNL .MAR; 1 6) 


This subroutine adds the neccessary ACP attributes to retrieve 
both the journal selection bits and the journal names used for a file. 


Calling Sequence: 
BSBW RMSRTVJNL 


Input Parameters . 
: R5 Address of End of attribute List 


R9 IFAB address 
R10 FWA Address 
R11 Impure Area Address 


Implicit Imputs: 
: None. 


Ouput Parameters: 


R1 Destroyed 
R5 Updated to new end of attribute list 


; Implicit Outputs: 


FWA ACP attribute List has attributes filled in to retrieve journaling 
bits and journal names. 


: Sanphastes Codes: 


ne. 
Side Effects: 

None. 

RMSRTVJNL:: 

;**JNL** begin temporary code to tie off journaling 

;**JNL** end temporary code to tie off journaling 

: Construct ACEs to get journal names and add ACP attribute 

: MOVAL FWAST_BIACE(R10) ,R1 i get start of ACE 
MOVW  #<<ACESC_BIJNL@<ACESB_TYPE*8>>+FWASS_BIACE>,(R1) ; move in ACE Type, 
MOVW ##FWASS_BIACE, + ; move atr len into List 
MOVW aie FNDACLTYP,(R5)+ ; move atr type into List 
MOVL R1,(R53+ ; move atr addr into List 
MOVAL FWAS$T_AIACE(R10),R1 . get start of ACE 
MOVW  #<<ACESC_AIJNL@<ACESB_TYPE*8>>+FWASS_AIACES,(R1) ; move in ACE Type, 
MOVW #FWASS_ATACE,(R5)+ ; move atr Len into List 
MOV #ATRSC_FNDACLTYP, (R5)+ 3 move atr type into List 


a SRE 
B 1 
| RMOJOURNL RMS Journaling Manager 16=SEP=1 AX/VMS Macro Vv04-00 Page 15 RMI 
v04-000 RMSRTVJNL = Retrieve Journaling Info SrSEp 19 38 8 33: 43 RMS.SRCJRMOJOURNL .MAR; 1 (6) vO 
oe hh B® Oe ess MOVL R1,(R5)+ ; move atr addr into List 
51 0908 CA 0D 11C 690 MOVAL FWAST_ATACE(R10),R1 get start of ACE 
61 0414 8F B 0121 691 MOVW #<<ACESC_ATJN NL@<ACESB_TYPE*8>>+FWAS$S LATACE (R1) ; move in Ace Type. 
685 14 BO 0126 $36 MOVW WFWASS_ATACE, (R5)+ ; move atr len into lis 
685 23 BO 0129 69 MOVW #ATRSC_FNDACLTYP,(R5)+ ; move atr type into list 
8 51 00 O1 C 69% MOVL  —R1, (R5J+ + move atr addr into List 
51 O91C CA DE O12F 696 MOVAL FWAS$T_IDACE(R10),R1 get start of ACE 
61 00000820 8F DO 0134 697 VL #<<ACESC_JNLID@<ACESB_ TYPE ®8>>+FWASS_ vAtE (R1) ; set up ACE 
85 9 BO 0138 698 MOVW #FWASS_IBACE, (R5)+ ; move atr Len into List 
85 BO O13E 344 MOVW #ATRSC_FNDACLTYP, (R5)+ 3 move atr type into List 
85 51 pO 0141 700 MOVL  R1,(R5J+ : move atr addr into List 
0144 701 
0144 oe ; 
Bi2 Pi 3; Add journal control bit attributes to List 
85 0144 705 MOVW R5)+ 3 move atr len into List 
85 1D BO 0147 706 MOVW Pateee JOURNAL , (R5) + t move atr type into List 
85  O0A0 O14A 107 MOVAB IFB$B_JNLFLG(R9), (R5)+ : move atr addr into List 
O14F 709 
O14F 710 
O14F 711; 
8 06 BO O14F 712 MOVW #4,(R5)+ ; move atr len into List 
8 B12 713 MOVW #ATRSC_UIC_RO »(R5)+ ; move atr type into List 
1 28 ay MOVAL FWA$L_OIC(R10) 05, (R5)+ 3; move atr addr into List 
05 0159 716 RSB 


| 
| 
Make sure we have the file's UIC in the FWA 
| 
| 
| 
| 
| 
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MS Journ 
/ V04-000 RMSASSJNL = Open Journaling for a file “SEP=1984 16:21:5 RMS ..SRCJRMOJOURNL .MAR; 1 
| 
a138 ig -SBTTL RMSASSJNL = Open Journaling for a file 
15A 720 5 ++ 
| bieh f 1 ; RMSASSJNL = Open Journaling for a file 
Q1ISA 7 : : This subroutine builds the necessary data structures for journaling 
| Hts f é 3 onto the IFAB and opens the journals needed for the file. 
O1ISA 726 ; Calling sequence: 
| O15A 787 
QO1SA 728; BSBW RMSASSJNL 
Q15A 4 ; 
015A 730 ; Input Parameters: 
O1ISA 7351 3 
015A £36 3 R8 FAB Address 
O1ISA 735; R9 IFAB Acdress 
015A 38734 ; R10 FWA Address 
O15SA 735; R11 Impure Area Address 
O1SA 736; 
Q15A 737 ; Implicit Inputs: 
OSA 738; 
015A 739; IFB$B_JNLFLG 
015A 740 ; 
015A 741 ; Output Parameters: 
O1SA 742 ; 
O1SA 743; R1 - R5 Destroyed 
O15SA 744 ; 
O15SA 745 ; Implicit Outputs: 
O1SA 746 ; 
O1ISA 8747 ; IFB$L_RJB Address of allocated and initialized RJB 
015A = 748 IFBSB_JNLFLG2 Files Journaling Flags: Wee. : 
Q1I5A = 749 IFBSV_JNL Set to indicate journaling initialized for this 
O15SA 750; file. 
015A 751; . 
015A 036 3; Completion Codes: 
OiSA 753; 
015A 754; Any RMS, particularly, DME. 
QO1SA 755; NOJ, Journal device for file not available, CJF status in 
Q1ISA 756 ; STV from SASSJNL. 
Bi, Pee 2 JNS, Journaling not supported for operation 
015A 759 ; Side Effects: 
015A 760; None. 
O1SA 761 ; 
015A 16 ome 
O1SA 76 
015A 764 ERRJNS: RMSERR JNS 
| 05 O1SF 765 RSB 
0160 766 : 
| OOAO C9 «694 +0160 767 UFO: CLRB _—_‘IFBSB_JNLFLG(R9) : turn off journaling 
164 768 ASS_DONE: 
164 76 RMSSUC 
05 0167 770 RSB 
168 771 
193 oe RMSASSJNL:: 
F6 0OOA2 C9 04 €E2 016 77 BBSS #1FBSV_DONE_ASS_JNL,IFB$B_JNLFLG2(R9),ASS_DONE ; already thru 
O16E 774 ; here during SCREATE. 


™~ 
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v04-000 RMSASSJNL - Bhen Journal ing for a file ae 9 0 :59:L3 LRMS SRCTRMOJOURNL MAR: 1 ° (7) 
ED 04 AB 11 ~«=€0 BBS a ABS UFO oF ADSL FOP (RG) -tTO 3: branch if UFO 

07 22 A9 05 3 BBC #1FBSV BIO, IFBSB_FAC(R >,10$ : branch if not BIO 

OOAO C9 t 3 pile #<IFBSR_RU!IFBSM_ONLY_RU>, 1FBSB_JNLFLG(R9) ; don't allow RU B10 


Next, if the process in which we're puecyy ing is a RECOVERY process we | 
may not want to journal. Specifically, if the file we're starting to 
access is one RMS Recovery is recovering, we don't want to 


a. recovery unit journal 
b. Al or BI journal if we're doing Al recovery 


Note: Bl recovery must be journaled. If BI recovery is not journaled, 

the file can be in states never represented by any state representable 

by the RMS journal entries in the journal. This can happen when a file 

is BI journaled, modified, rolled-back, modified again, and later rolled 
back to a time when first modified. This is because ‘old’ record images 
are put in BI journals. Therefore, a record may get put in the file that 
never shows up in the journal. Therefore if its backed out by Recovery, 
and recovery is not journaled = that record will never be seen again. 

This problem does not occur with AI journaling because the journal contains 
‘new’ record images. 


WAPIPIPIPIPSNINPINPDNID 9 9 OO MF OOOODODOOOO OOOO O0 000000000000 090000090908 III 
MOOD NOAOUE WIN OOO NAME WN | O OOO NA UE WW O OO NAU EWN 0 ODNAUMUE WN -OUOONOuU 
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7 
7 
7 10$: MOVL a*#CTL$GL_PCB,R1 ; get PCB address for test 
16 24 Al 1A ET : BBC #PCBSV_RECOVER,PCBSL_STS(R1),20$ 3 a gs not 
: in 
00A1 C9 95 8 TSTB IFBSB_RECVRFLGS(R9) 3 may be in RECOVER, but 
3 ; not recovering this 
: e 
10 13 8 BEQL 20$ ; branch if not in recovery 
OOAO C9 03 BA 9 BICB #<1FBSM_RU! IFBSM_ONLY_RU>, IFB$B_JNLFLG(R9) ; clear RU journalin 
05 00A1 C9 01 E1 96 BBC #IFBSV_AI_RECVR, IFBSB_RECVRFLGSTR9) ,20$ ; skip next if not 
00A0 C9 ~«0C~—CséBA } BICB #<IFBSA_AT!IFBSM_BI>, IFBSB_JNLFLG(R9) ; clear Al, BI if Al 
07 69 30 + €0 A 208: BBS #IFBSV_WRTACC, (RI) ,50$ ; branch if writin 
OOA0 C9 «O(OF:~= BA COA BICB = #<IFBSA_AI! IFASM_Bi!IFBSM_RU! IFBSM_ONLY_RU>, IFB$B_JNLFLG(R9) 
AA : clear AT,BI,RU 
50 «(11 ry BRB 3000$ : branch to Af test. 
| 
A 50$: 3 
06 00A0 C9 «=6—00-~S—t—=é#€!*?D A 60$: BBC #IFBSV_ONLY_RU,IFBSB_JNLFLG(R9),1000$ ; branch if ONLY_RU 
f SSB #IFBSVRU, IFBSB_UNLFCG(R9) : set RU bit 
13 0OAO C9 = 02 1 B 1000$: BBC #I1FBSV_BI,IFBSB JNLFLGCR9) .20008 : branch if no Bl 
53 08C8 CA 7E 018 MOVAQ FWASQ_BIUNL(RIOS,R ; BI descriptor 
54 Q8E0 CA 9E C MOVAB A a alae ; BI name 
55 02 yf C MOVL #CJFS$_BI,R ; indicate Bl 
0098 0 C BSBW OPEN JN 3 go open channel 
67 50 =E9 cf BLBC RO, 5000$ ; get out on error 
25 OOA0 C9 3 1 D1 2000$: BBC #IFBSV_AI,IFB$B_JNLFLG(R9) 30008 : branch if no Al 
52. 009A 8F C D7 MOVZWL #<MJBSC_BLN+RJRSC_EXTLEN>,R ; size of MJB for extend 
00000684" ET 16 BS JSB RASALL OC AJB ; get the MJB 
53 50 =€9 E BLBC RO, 50008 3 get out on error 


| 
| 
51  00000000'9F 0 
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| RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25: AX/VMS Macro V04-00 Page 
v04-000 RMSASSJNL = Open journaling for a file ety 7 0:83:13 YAMS SRCTRMOGOURNL MAR: 1 . 
34 A951 0 OES OVL R1, 1 FBSL_EXTJNLBUF (R9) ; set up pointer 
| 53° 0800 CAFE. OES 4 MOVAQ FUABOLATINL (RID) on t Al descriptor 
54 gBFs CA 9 Ha 4 MOVAB eye T SAU AGE SRI ),R4 ; Al name 
03 4 1F 5 MOVL #CJFS_AI,R 3; indicate Al 
0070 4 5 § BSBW OPEN iu 3 go open channel 
3¢ 50 =O«ED Fe be BLBC RO,5000 3 get out on error 
13 Q9A0 C9 = «04 4 O1F 839 3000$: BBC #IFBSV_AT,IFB$B IM,FLECRD) .40008 3; branch if no AT 
5 08D8 CA E 020 840 MOVAQ FWA$SQ_ATJNL(R10),R 3; AT descriptor 
| 54 0908 CA 43 020 841 MOVAB a alee ; AT name 
55 04 B 020C Ht OVL #CJFS_AT,R ; indicate AT 
9097 0 O20F Hn BSBW = OPEN NL 3 go open channel 
23 50 +€9 8 1 see BLBC RO,5000 3 get out on error 
4A 00A0 C9 «01 =E€1 0215 846 40008: BBC #1FBSV_RU JFBSB_JINLFLG(RI) 60008 : branch if no RU 
5 01 bd 0218 847 MOVL  #CJF$_RU,R : indicate RU 
0048 0 O21E 848 BSBW OPEN_JNL 3 go open channel 
1450 €9 0221 849 BLBC RO,5000$ 3 return on success 
51 00000000' 9F 09 0224 850 MOVL  aa#CTL$GL_RUF,R1 + already in RU? 
38 613 #0228 «(851 BEQL 6000$ : branch if not 
36 11 Al 01 E1 o¢¢8 B26 BBC #RUCBSV_ACTIVE,RUCB$B_CTRL(R1) ,7000$ 
30 00OA2 C9 02 «ES 0232 «85 BBCS #IFBSV_RUP,IFB$B_JNLFCG2(R9) , 7000$ ; set RU in prog 
0238 854 ; NOTE: Should never 
os3e $2? ; fall through 
OOAO C9 ©494 0238 #857 5000$: CLRB IFBSB_JNLFLG(R9) 3 on error clr flags 
no @ 8 7 8 Gee oe EXTZV #STS$V_FAC_NO,#STS$S_FAC_NO,RO,R1 ; get error facil ty 
51 01 D1 0241 859 CMPL #RMS$_FACICITY,R1 ; is error from RMS? 
22 13 0244 860 BEQL 7000$ ; don't map if so 
52. 50 00 0246 861 MOVL ; save CJF status 
Q0000000'EF 16 0249 B62 JSB RMSMAPERR : fill in STV 
52 00000000'8F Di O24F 86 CMPL #CJFS_NONAME ,R2 3; was error no jnl name? 
07 12 0256 864 BNEQ 5010$ 3 no, use NOJ error 
0258 865 RMSERR JNF 3: yes, use JNF error 
05 11 0250 866 BRB 50208 3 and continue 
O25F 867 5010$: RMSERR NOJ ; use NOJ error 
05 0264 868 5020$: RSB 3; return 
0265 869 " 
0265 870 6000$: RMSSUC ; yes, indicate success 
0268 871 
05 0268 872 7000$: RSB 
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| RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Page 1 
v04-000 OPEN_JNL = Common onen journal channel tae Yi 98: ty RMS .SRCJRMOJOURNL .MAR; 1 . ( 
8 3 es -SBTTL OPEN_JNL = Common open journal channel 
| 0 69 06 r++ 
8 e ae ; OPEN_JNL = Common open journal channel 
| 0269 79 : This routine opens a channel on the specified journal. It also alocates 
0269 880 ; an RJB if needed. 
0269 881 ; 
0269 ae6 ; Calling sequence: 
0269 835 ; 
0 82 Se : BSBW OPEN_JNL 
&3 He ; Input Parameters: 
0269 888 ; R3 Address of Journal Name Rescr ipter (FWASQ_xxJNL) (AI,BI,AT only) 
0269 889 ; RG Address of Journal os ACE (FWAST_xxACE)” (AI,BI,AT only) 
§¢68 890 ; R5 Journal Type (CJF$_xx) 
0269 891; RG IFAB address 
0269 536 3 R10 FWA address 
0269 893; R11 Impure area address 
0269 894; . 
0269 895 ; Implicit Inputs: 
0269 896; 
0269 897; IFBSL_RJB RJB 
$568 898 ; IFBS$B_JNLFLG File ts Joptnal ing flags 
| 0269 899; FWAS$Q_DEVICE ootes ile resid es on. 
0269 900 ; FWASQ— uXxJNL, FWAST_xxJNLN 
0269 901; Journal Names for file 
0269 902; FWASL_UIC File Owner 
0269 903; FWASL_PRO File Protection 
0269 904; 
0269 905 ; Output Parameters: 
0269 906 ; 
0269 907; R1-R5 Destroyed 
0269 908 : 
0269 909; ; Implicit Outputs: 
| 0269 910 : 
0269 911; IFB$L_RJB Address of allocated RJB 
0269 4 : IFBSB_ iW tLe Files a ag flags 
0269 91 : IFBSV_JNL Set to ndicate journaling initialized. 
0269 914 ; RJBSW_FLAGS A bit is set for each channel opened. 
5524 312 : : RJB$Q" CHAN One word is filled in with a channel number. 
bs68 917 : Completion Codes: 
69 918; 
0269 919 : Any RMS, particualrly, 
0 69 ? 0 : Any CJF status value ioe e EASSUNL. 
8 69 9 gi _ 
8 24 3 i : Side Effects: 
0269 925 If journaling not previosly initialized on this file, allocates an RJB 
69 9 gi: 3 for it. 
69 927; 
69 928 ;:-- 
69 929 
69 930 OPEN_JNL: 


a Oe Se Ee a a a ee ee nee ae eee err 
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RMOJOURNL RMS , ourneling Manager 16-SEP-1984 AX/VMS Macro V04-00 Page 
v04-000 OPEN_JNL = Common open journal channel -SEP-1984 RMS .SRCIJRMOJOURNL .MAR; 1 
>, ae. BSBW anes OC_RJB_BDB ; get ournaling 8DB/Buf fer 
08 3 es 6 9 ¢ BLBS 168 of 3 3 te aes if puceese 
007D 1 9 BR 3 out on error 
52 O0A4 C9 DO 934 10$: MOVL IFBSL ye tae R2 ; get RJB address 
01 55 D1 0277 935 CMPL = RS ACIFS_R : Opening RU? 
A 13 O7A 936 BEQL 20$ ; yes, branch 
63 D044 O27C 937 CLRL (R3) ; set up descriptor 
63 64 04 83 QO 43 938 SUBB3) #ACEST_RMSJNLNAM, (R4),(R3) : get len - f journal name 
09 14 028 939 BGTR 15$ ; Length 
50 O0000000'°8F DO 0284 940 MOVL #CJFS_NONAME ,RO : ournal not specified 
58 11 0288 941 BRB 40$ : error ex 
04 AS 04 AG DE 8 +) ars 15$: MOVAL ACEST_RMSJNLNAM(R4) ,4(R3) : fill in stress of string | 
029 944 SASSJNL_S - 3 assign journal chan 
029 945 CH = RJB$Q_CHAN-2(R2)(R5) 
083 946 JNLTYP = RS, = | 
0292 947 JNLNAM = (R$), = | 
0292 948 ACMODE = MODE, - 
029 949 PROT = FWASW_PRO(R10), - 
029 950 OBJUIC = FWASL_UIC(R10), - 
029 951 FACCOD = FACILITY | 
02B4 336 
24 11 +0284 95 BRB 30$ 
0286 954 
0286 955 208: SASSJNL_S - i open RU chan 
0286 956 CHAN = RJBSQ_CHAN(R2), - 
0286 957 JNLTYP = R5, = 
0286 958 DEVNAM = FWAS$EC. -DEVICE(RI0), ~ 
0286 959 ACMODE = MODE, 
02B6 960 oT = FWASW_ PROCRIO) 
0586 961 OBJUIC = FWASL-UIC(RIO), | 
0286 966 FACCOD = FACILITY 
O2DA 96 
08 50 =«2«E9 aioe He 30$: BLBC RO,40$ : return on error 
55 D7 0200 966 DECL R5 ; one less than type | 
O2DF 967 SSB R5,RJBSW_FLAGS(R2) ; turn on bit for chan 
05 O2E4 968 RSB 3 return to caller 
02E5 969 
02E5 970; ; 
O2E5 971; Error Exit 
02E5 ar6 4 j 
01 BB O2E5 973 40s PUSHR #*M<RO> ; save RO | 
OOO005F2°EF 16 Bsee 974 JSB RMSDEAJNL : Seal leseie RJB 
01 BA O2ED 975 POPR #*M<RO> : restore RO 
O2EF 976 | 
05 O2EF 977 50S: RSB 


———— 
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RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Page 
v04-000 RMSCONJNL = Peanect’ Journal BDB mie} 9: 1:5 RMS .SRCIRMOJOURNL .MAR; 1 ° 


-SBITL RMSCONJNL = Connect Journal BDB 


wn" 


+ 
; RMSCONJNL - Connect Journal BDB 
; This routine, called from $CONNECT, builds the necessary data 
; structures onto the IRAB for journaling record processing 
; operations 
; Calling sequence: 
BSBW RMSCONJNL 
Input Parameters: 
R9 Address of IRAB 
R10 Address of IFAB 
R11 Address of Impure area 
implicit Inputs: 
None. 
Output Parameters: 


R1 = R3,R5 Destroyed 
R4 Address of BDB for journaling 1/0. 


Implicit Outputs: 
IRB$L_JNLBDB Address of BDB for journaling 1/0. 


Completion Codes: 
Any valid RMS, particualarly DME. 


Side Effects: 
A buffer and BDB are allocated, the BDB is marked perm. 


Be Se Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Fe Se Ge Se Se Ge Se Se Ge Ge 


OO8 NAMES WN OOO NAUE WN 9 OONO IEW SOW ODNAULS WO” 


RMSCONJNL: : 


Determine whether or not we need to allocate a journal BDB and buffer. We 
only need one if Connecting for record access. For block I/0 access gisoly 
u . 


SN NN ee rr re rr rr 
fee le lw lw lew le) wel wal alata eolololelolololeoleloleloleleleoleleleloleololeoleoleleololelalelo) 


PIPOIPIPIPIPINIDS 3 2 KH SOOOOOOOCOCOOCOOO0O0OO0 OOO WMcocococacDncDcDOO 


COOCOSCCOSCOOCOCOOCOCOOCOCOOC OCC COCO OOCOOC COSCO OOOCOOCOO OOOO OOOOOOOoO 
CGDOOOCCOCOOCOCOOCOOCOCOCO COCO OCOCOCOCOCSSTSOOOOSCOSOOOVOOOOOOOOOOOOOOOOOOOO 


IAP IPOPIPIPIPOPOPININYIAPIPYIPOPYPYINYINIPYINININIPONYNPININIPNYININPYAPIPYNPIPYNINPYNUPYPIPON) 


ee ee ed td = od SS + 2 3 =) 4 3 2 = — — 2 3 — 2 — 


0 
4 : exit (the journal BDB and buffer will be allocated on the first $wRIT 
F 
05 €0 F 5 BBS #1FB$vV_BI0,- ; if we're open for B10, exit 
OA 22 AA F 8 IFBS$B_FAC(R10) ,10$ ; : 
E1 F 9 BBC #1FB$9_BRO,- ; if not opening BRO, we're ok 
08 22 AA F 0 rie FAC(R10) ,20$ ; (must be open for record access) 
B €1 FA 31 BBC #RABST_BIO,- ; if connecting for record access, 
03 04 AB FC 3¢ RABSL_ROP(R8) ,20$ : we're ok 
oo7c = s«5$1 FF 10$: BRW 80$ 3 exit 
os 34 
0 33 3 


r— - 
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Ee ees 
aling Manager 16-SEP-1984 00:25:1 AX/VMS M v04-00 P 
= connect” g- Ob: 3tid RMOJOURN age 28, 


nnect Journal BDB SEP-1984 RMS .SRCIRMOJOURNL .MAR; 1 ( 


f the file is sequential, determine the largest probable record size to be 
ournaled. A record can be no larger than the maximum record length. If 
the MRS was not given, then look at the the longest record length or the 
multiblock count. If none of these values were specified, then punt. 


: file is not sequential. Use the bucket size as the buffer Length. 


urn 
JNL | 
0 | 
0 
8 | 
0 
8 ASSUME IFBS$C_SEQ EQ 0 
23 AA «95030 208:  TSTB _IFB$B_ORGCASE(R10) ; is the file sequential? | 
1 12 $09 BNEQ ie 3 no, use BKS ter bul ter Len | 
55 60 AA 3 7 MOVZWL IFBSW_MRS(R10),R5 Z th a #4 
45 306 BNEQ 608 ~ suse it ff present 
55 52 AA 3C 0300 MOVZWL IFBSW_LRL(R10),R5 ; use the LRL for the buffer 
9 12 $1 BNEQ 60$ : finish buffer size calulat 
$5 37 A8 9A 13 MOVZBL RABSB_MBC(R8),R5 ; use the MBC for buffer Len) 
046 13 17 BEQL 30$ i; no, buffer will be 1 page 
67 19 19 BLSS ERRMBC ; MBC must be > 0 | 
0B ii 18 BRB 55$ 
55 0200 8F 3C¢ 1D 30$: MOVZWL #512,R5 : buff. will be 1 
08 11 O82 BRB (60S wi tesalbasti Be Raya | 


55  5E AA 9A 


2. 3 Ow 
61 


get bucket size 
convert to bytes 


50$:  MOVZBL IFB$B_BKS(R10),R5 
55$:  ASHL  #9,R57R5 


60S: ADDL2 #RJRSC_RECLEN, RS 
#511,R5 
BICL2 #511.R5 
JSB RMSALDJNLBUF 
BLBC 4 
PUSHR #*M<R1,R2,R3,R4,R5> 
MOVL BDBS$L_ADDR(R4),R1 
moves 20, (RT) #0, ARIRSC HDRLEN, (R1) 


#AA<R1RZ,R3,R4R5> 
MOVL 4, IRB$L_JNLBDB(R9) 


55 00000048 8F (CO 
55 QOOQOOIFF 8F CO 
55 OOQOOO01FF 8F CA 


QOOOOOOO'EF 16 
37 50 


OO O00.0060'09 09 09 09 09 09 C8 NII NINN NS NN SAA AAA AAAAMMIUMIMUIMIUIMIUIU ES BBE EPP EE EW OO 


MR —=OODWNOA UNE WIN @ OOO NOAU ES WIN  O OD NAME WW 3 CO OOO NA UN S*W  O OONAU EWR OOOnNO 


give some overhead 
round up to a 
page boundary 


get BDB and buffer 

get out on error 

Save regs zeroed by MOVCS 
get RJR address 

zero the RJR overhead 
restore reqs zeroed by MOV 
save BDB addr 


Sete te 


3— 86 BB 
51 18 A&~ 00 
0 0 


et ee ek a kd dd 
SOOOCOOSOOOCOOSOOSOOOCOCOCOCOCOCO OOOO OOOO OOOO OOSO OOOO OCOOOOOOCOOOOOOOOO 75 


ASSUME RJRSC_EXTLEN GT RJR$C_BLKLEN 
ASSUME RJRSCTEXTLEN GT RJRSC~AT_RECLEN 
1C OOAO CA 04 4 BBC #1FBSV_AT, IFB$B_JNLFLG(R10) ,80$ ; skip if not AT 
52. OO9A BF 3 MOVZWL #<MJBSC_BLN+RJRSC_EXTLEN>, RO : Length of structure 
02 23 AA 91 CMPB JFBSB_ORGCASE (R10) #IFBSC_IDX 3; indexed file? 
07 12 BNEQ : if NEQ no 
52 00000100 ef 60 ADOL #256,R2 ; add in max key size 
333 0 70$: BSBW RMSALLOC_MJB ; allocate 
0 29 E9 BLBC RO, : branch if error 
2c Ad 1 p0 MOVL R1, 1RBSL_ATJNLBUF (R9) : init pointer 
Bos RMSSUC : indicate success 
05 90$ RSB 


oa 


RMS 


05 


Journaling Manager 
ONJNL = Connect Journal BDB 


1093 

1094 ERRMBC: 

1095 RMSERR MBC 
1096 RSB 


'f 


“SEP=1 
~SEP=1 


be Ye:s1:57 


AX/VMS Macro V04-00 
RMS ..SRCJRMOJOURNL .MAR; 1 
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RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 P 4 
yO4-000 RMSMAPJNL = Write Mapping Entry ~$er hoe Poiszils Y age (13) 


~SBTTL RMSMAPJNL = Write Mapping Entry 


RMS ..SRCJRMOJOURNL .MAR; 1 


s ++ 
RMSMAPJNL = Write sg Entry 
RMSMAPJNL_RU = Write RU Mapping Entry 


This routine writes a wanping entry into all currently open 
journals for a particular file 


Calling sequence: 


BSBW = RMSMAPJNL 
BSBW  RMSMAPJNL_RU 


Input Parameters: 


R8 FAB address (used by COMMON_FILE_AT to write CTX field into RJR) 
R9 IFAB address 

R11 Impure area address 

AP r0 status till now (I know its a hack, but..) only used for AT 


Implicit Inputs: 


IFBSL_RJB RJB address 

ms FWA pointer and current contents of FWA. 
RJB$V_OPER Set to indicate an open entry; cleared if set. 
RJB$W_FLAGS RMS journal channel flags - these will be used 


as variable inputs (saved and restored by caller) 
to allow AT write at a different time from Al, BI, RU. 


Output Parameters: 


R1 - R5 Destroyed 
Implicit Outputs: 
RJBSV_OPEN Cleared if set 


Completion Codes: 


ony RMS, particularly DME, J 
CJF - CJF error, CJF status in STV 


Side Effects: 
May have switched to EXEC AST level. 


Bete Ge Ge Se Qe Ge Se Ge Se Se Ge Ge Ge Ge Se Sse Se Ge Ge Se Ge Ge Ge Sse Se Ge Ge Ge Ge Ge Se Ge Se SeGe Sse Se Se Se Sete Sse tes 
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: Alternate Entry Point for RU handler 


(GD Gd GD 09 C9 CO G9 CD CD CD GD CD Cd CO CD CD CD C9 CD C9 C9 C9 CO CD CO CD CD CD C0 OD CD OD CD CD Cd CD GO OO Cd CD CD CO. CD CO Co CO. CD CD CD00 0DCD 


mieten come 
SHL #1 
BRB MAPJNL 


-o 
-2 


oo 
m= 
PAR OC OONAU EWN O OD NAU EWN OO ODN MEW OO ONOU EWN OOONAUES WN —OOo 


COOOOCOCOOCOCOCOCOOOCOSOSSOCOCOCOCOCSOOOC COSCO COCOCOCOOOCOOOCOCOOOOOOoOoOoOO 
WWIWWIAIANIANAAIWIAI AAA AA AAAAIWNA AANA ANNAN WANA AIAN AAANWWINN 
a a a kk kd dd td td 
a ee ek kk a a dd dd dd dd I IOOOD 
PVT BS BBB BEE EWAN AINA AIUIDSPOPODININIPUNDINIDY) 2 9 OS  POOOOOOOOCOOCOONO 


Oo > CoCoce 09000000 00 0 


: indicate RU MAPJNL 


L 
RMOJOURNL RMS Journaling Manager 16-SEP-19 5:1 AX/VMS Macro V04-00 P 5 
v04= RMSMAPJNL = rite Mapping Entry met et A be ln eA 


> | 
ate 


ill = sue type 
org 


Sets Ge te Ge Be Se 


| 
¢ ¥3e : Entry point for Al, BI, AT 
. on § 
€ 1157 RMSMAPUNL: : | 
7E DG ¢ 1138 CLRL = =(SP) ; indicate not RU MAPJNL 
E 1160 
7E 56 7D 1161 MAPJNL: MOVQ R6,-(SP) 3; save R6, R7 
7E SA 00 8 f 1196 MOVL R10,-(SP) 3 save R1 16 | 
94 116 
0 94 1164; 
94 1165 : Get RJR buffer address. | 
8 94 1198 ; 
042E 30 94 116 BSBW RMSALLOC_RJB_BDB ; a journal B08 
0397 1168 ; ¥ this is CLOSE 
03 50 0397 1169 BLBS RO,10$ : continue if i. 
009¢ 039A 1170 BRW 80$ + out on erro 
SA 30 A9 DO 039D 1171 108: MOVL IFBSL_JNLBDB(R9) ,R10 3; first get BDB address 
56 18 AA 0 Q3A1 11% MOVL BDB$L_ADDR(R10),R Rb ; get RJR address 
O3A5 117 
O3A5 1174; 
O3A5 1175 ; Fill in file name in entry 
03A5 108 $ 
5A 38 A9 DO O3A5 117 MOVL IFBSL_FWA_PTR(RY) R10 3; get FWA address 
53 0004 C6 ODE 0349 1178 MOVAL RJRST~FILENAME (R65 ,R3 : get name buff addr 
O3AE 1180 ASSUME RJRSS_FILENAME EQ 256 
O3AE 1181 
O3AE 1182 ; 
Q3AE 1183 ; Set buffer size to 255 because the GETFILNAM code builds a NAM block, etc... 
BaAe W138 3; and can only cope with a size that fits in a byte. 
54 OOFF 8F 3C O3AE 1186 MOVZWL #<RJRSS_FILENAME-1>,R4 3; set size of buffer 
QOOO000000'EF 16 0383 1187 JSB RMSGETFILNAM : go get file name 
58 AG 365490 fe 1138 MOVB R4,RJRSB_FNS(R6) ; put length in entry 
03BD 1190 ; Fill in header 
03BD 1191 ; 
30 A DO 038D 1138 MOVL IFBSL_JNLBDB(R9) ,R retrieve jnlt BDB addr 
14 as 014 Sr BO 03C1 119 MOVW #RIRST_F FILNARLEN, *BDBSU. NUMB(R4) set entry size 
00A4 C9 =—0O Baer 1194 MOVL IFBSL_RJB(R get RJB address 
3 A6 90 3CC 1195 MOVB #RIRST MAPPING. RJR$B_ENTRY_TYPE(R6) 
04 A6 23 A9 90 8300 1196 MOVB 1FBSB ORGCASE(R9), RJR$B_ORG(R6) fill i 
0c DS 03D 1197 TSTL *x0C (SP) RU call? 
12 bape 1198 BNEQ branch if so | 
DA 1199 
O3DA 1200 ASSUME FABSC_SEQa-4 EQ RJRSC_SEQ | 
O3DA 1 83 ASSUME FABS$C™ _RELa=4 EQ RJRSC” REL 
aon : 8S ASSUME FABS$C"IDXa-4 EQ RJRSC_ IDX 
06 OA AZ 04 €ES § DA 1204 BBCC #RJBSV_OPEN,RJBSW_FLAGS(R7) ,20$ ; branch if not SOPEN 
05.46 M1 90 OSDF 1205 MOVE  #RJR$_OPEN, RJRSB_OPER(R6) : fill-in operation | 
11 8 3 : 3 BRB 30$ 
05 A6 «602 = 90 6 ES ! 38 208: MOVB #RIRS_CLOSE ,RJRSB_OPER(R6) ; fill in operation | 
E9 1210 
O3E9 1211 


Write indivdual mapping entries 


Bete 


——— 


 RMOJOURNL RMS Journaling Manager 16-SEP-19 5:1 
| v04- RMSMAPJNL = Urite Mapping Entry met 7 9 SF: 43 t 
| 
E9 121 

54 30 A 00 9 1 i 30$: MOVL  IFBS$L_JNLBDB(R9),R4 
7E SS D O3ED 1214 MOVG = R3,=( SP) 
FQ 1215 RMSSUC 
09 OA A701 1 O38F3 1 1 BBC #RIBSV_BI,RJBSW_FLAGS(R7) ,40$ 
| 6E 02 9A O3FB 121 MOVZBL #CJF$_B1, (SP) 
| 0040 g FB 1218 BSBW  RMSWRTJNL 
2650 € Ha 19 BLBC ~— RO, 608 
09 OA A7 02 1 0401 1221 40S: BC #RIBSV_AI ,RJBSW_FLAGS(R7) ,50$ 
6E A 0406 1 2 MOVZBL #CJF$_AI, (SP) 
| Qosr 30 0409 1 SBW | RMSWRTUNL 
18 50 —«O«E9 b40¢ 4 BLBC ~— RO, 608 
13 OA A?) 03 «£1 O40F 1226 50S: BC #RIBSV_AT,RUBSW_FLAGS(R7) ,60$ 
6E 04 A 0414 1 ¢7 MOVZBL JF 
2c AD 56 «00 0417 1228 OVL RG 1FBSL ATJNLBUF (R9) 
0409 30 0418 1 $9 BSBW COnnO FILE_AT 
2B 10 O41 1230 BSBB RM SW RT NL 
52. 2C A9 DO 0420 1231 OVL —_IFBSL_ATJNLBUF (R9) ,R2 
0424 1238 ASSUME RJRSL-AT_STV EQ 
24 a2. 7C d4g4 133 LRQ RIRSL- AT “81 $¢R2) 
0427 1234 
SE 08 CO 0427 1235 60$:  ADDL2 4#8,SP 
OD 11 042A 1236 BRB 80$ 
042¢ 1237 
acSe 4508 | te wenptuicnnt 
: mapping entry. 
042¢ 1340 - 
042C 1241 
05 a6 11 «290 04¢¢ 124g 70$ MOVB  #RJR$_OPEN,RJRS$B_OPER(R6) 
54 DD 0430 124 PUSHL R4 
01 DD 0432 1244 PUSHL #CJF$_R 
0C 10 0434 1245 BSBB RASURTINL _OBJ 
SE 08 CO 0436 1246 ADDL2 4#8,SP 
0439 1247 
5A 8E DO 0439 1248 80$:  MOVL (SP)+,R10 
56 BE) Oo 7DCO43C 1249 MOVG  (SP)+.R6 
BE DS O43F 1250 TSTL  (SP)+ 
05 0441 1251 RSB 


AX/VMS Macro V04-00 
RMS.SRCJRMOJOURNL .MAR; 1 


Sete Se Se Ge Ge Be 


Sete tee 


RURSL_AT_STS+4 


restore BDB addr 


make type and BDB args 


success if no gmk ing 
branch if no B 

set 

write the record 

get out on error 


; branch if no Al 


se 
write the record 
get out on error 


branch if no AT 
set AT 

shortcut RJR addr. 
fill in fields 


write the record 
get RJR address 


init status 
clear arglist 
exit 


fill in operation 
BOB addr 

Set RU 

write the record 
delete arglist 


restore FWA addr 
restore R6, 
clear off call code 


Peer ib), 


pose mormeconertienme 
N 1 
RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 
y04-000 RMSURTINL = Write Journal Entry Breen ob 40557157 LAMS SRCIRMOSOURNL MAR: 1 
442 1 2} -SBTTL RMSWRIJNL - Write Journal Entry 
442 1254 -SBTTL RMSWRTJNL_OBJ = Write Journal Entry with OBJECT_ID Flag 
te i 33 ++ 
| 0442 1 2§ + RMSWRTJNL - Write Journal a | 
Re? ! 28 ; RMSWRTJNL_OBJ - Write Journal Entry with OBJECT_ID Flag 
0442 1260 : This routine fills in the mapping enry sequence number into the 
Ree 1261 ; journaling buffer and then writes it out for either a fab or rab 
| Ree : 8g 3 operation. 
7 ! rt: : Calling sequence: 
0442 1266 ;: BSBW = RMSWRTJNL 
bee : of 3 BSBW RMSWRTJNL_OBJ 
Ree } $? : Input Parameters: 
0442 1271; 4(SP) Type of journal to be written (CJF$_xx) 
0442 1 i 5 8(SP) Address of journaling BDB 
0442 1273 ; R4 Address of 6DB of Related buffer 
0442 1274 ; RY Address of IFB or IRB weopenetng on call) 
0442 1275 ; R10 Address of IFB if IRAB call 
Ree 1676 $ R11 Address of impure area 
O44 1278 > Implicit Inputs: 
0442 1280 ; IFB$L_RJB Address of RJB 
bee +t 3 RJB$Q_CHAN One word is used as channel for Q10 
Ree 1388 3 Output Parameters: 
O44 1385 3 R1 Destroyed 
gcd nt : Implicit Outputs: 
pees 1390 : BDBS$T_JNLSEQ One longword contains new high water mark 
| Ree 193! : Completion Codes: 
Ree ! 38 : CJF - CJF error, CJF status in STV 
0442 1295 ; Side Effects: 
442 1 38 3 May have switched to EXEC AST Level. 
442 1297; 
225 1599 * 
00000008 0442 1300 RBDB=8 : stack offset to related BDB address 
0000001C 0442 1301 JTYP=28 3 stack offset to journal type code 
00000020 0442 1 8 JBDB=32 3 stack offset to journal B 
0463 130% 
ri : 0s : Alternate Entry Point to write entry with OBJECT_ID flag. 
OOFC 8F te i a RasunT IM, 98: #*M<R2,R3,R4,R5,R6,R7> ; save regs 
§ 08 DO 0446 1 $8 MOVL #WRFLGSM_OBJECT“ID.R3 t Set P6 flags 


| 
i 
L aerate LC EC LL LLL LLL LLL 


roe 


| 


— 


RM 
vo 


_— 
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07 11 0449 BRB WRTJNL 


RMOJOURNL AX/VMS Macro V04-00 Pa 8 
v04=000 Fees Tae ocOMeML GAR: 1 oe 98, 


448 
448 RMSWRTJNL:: 
wr 8F BB 0448 PUSHR #*M<R2,R3,R4,R5,R6,R7> 3; save regs 
53 10 «20 (O44F MOVL  #WRELGSM_LOCK,R3 : set P6 Hees 
52 1C AE DO 0452 WRTJNL: MOVL JTYP(SP),R ; get typ code 
0A 08 AD 91 «(0456 CMPB =—s TRB$B_BIO(R9) ,#IRBSC_BID : Tre operation? 
11. 13 Q45A BEQL 10$ ; branch if yes 
045C 
045C ; 
Beet ; IFAB operation 
54 38 A9 00 baa MOVL IFBSL_FWA_PTR(R9) ,R4 ; get FWA address 
6 O0A4 C9 DO 0460 MOVL IFB$L_RJBTRI) ,R6 3; get RJB address 
11 OOA2 C9 02 EO 0465 BBS #IFBS0_RUP, IFBSB_JNLFLG2(R9) ,15$ 3; branch if RUP 
1¢ 11 0468 BRB 20$ 
0460 
046D 3 
Been 3; IRAB operation 
54 38 AA DO 046D 10$: MOVL _—IFBSL_FWA_PTR(R10),R4 
56 OOAS CA DO 0471 MOVL IFB$L-RJBTR10) ,R6 
Op 00A2 CA 02~—=Csé€;*? 0476 BBC #1FBS0_RUP, IFB$B_JNLFLG2(R10) ,20$ : branch if no RUP 
047C 3 
gore ; IFB, IRB rejoin here if RU in progress. 
047¢ 15s: SSB #WRFLGS$V_RUALSO,R3 ; set RUALSO in P6 flags 
01 52 01 0480 CMPL R2 ,#CUF$_ ; see if RU write 
04 12 0483 BNEQ ; branch if not 
rt 3 SSB #WRFLGS$V 81,R3 ; set RU/BI in P6 flags 
0489 3 
9434 ; IFB, IRB rejoin here in no RU in progress 
55 20 AE DO 0489 1345 208:  MOVL JBDB(SP),RS ; get jBDB address 
048D SSB #BOBSV_IOP,BDB$B_FLGS(R5) ; indicate 10 in prog 
51 18 AS DO 0492 MOVL BDBSL_ADDR( 3 get buff address 


aR 
02 At 02 90 0496 MOVB #RIRSC_MAXVER ,RJRS$B_VERSION(R1) 3 set journal rec ver # 


a ee ek ed dd dd dd 
DAL ADR 0 OO NAWUE LIN 9 OOO NAME WIN O OO NAME WN 0 OONAUESWWN OO OVNAUE WN O 


4 
d 

3€ BB O49A 4 PUSHR #*M<R1,R2,R5,R4,R 

08 Al 0920 C4 1C 28 049C 5 MOVC3) #FWASS_JNLID,FWAST_JNLID(R4) ,.RJRST_JNLID(R1) ; copy journal id 
3E A OQ4A3 5 OPR “M<R1,R2,R5,R4,R 
57 14 A5 3C O4A5 135 MOVZWL BDB$W_NUMB(R5) ,R7 ; get record length 
00000000 ‘EF 16 O4A9 5 $B SSETEFN : get EFN 

01 BA O4AF 5 POPR #*M<RO> 
5 $Q10_S - ; issue Q10 
5 FN = RO, - 
5 CHAN = RJB$Q_CHAN-2(R6)CR2], - 
5 FUNC = #10$_URITEV Ke ° 
5 10SB = BDBSC_IOSB(RS), - 
6 ASTADR = RMSSTALLAST, - 
6 ASTPRM = Rg, = ; IRB/IFB 
6 P1 = (Ri), - ; buffer address 
6 P2 = 7,°- 3 size of transfer 
6 P6 = R3 ; journal type 
? BLBC RO,308 3 get out on error 


C2 
RMOJOURNL RMS Journaling Mana 16-SE X/VMS Macro V64-00 Page 29 
v04-000 RMSWRTJNL “OBJ >= Wri : " deareal Entry with g-SEF | 3B 9? ‘3? 1 Yams SRCIRMOJCURNL . MAR; 1 ° nite 
00 00000" EF 16 O4DA 1367 JSB RMSSTALL ; wait for completion 
2 48 AS) OD 4E0 1 o8 MOVL Epes IOSB(R5) ,RO : retrieve steve 
1C AE D 4E4 1 3 MOVL ary P(SP) ,R2 3; get ty YP co 
54 = 08 S D 4E8 1370 MOVL RBDB(SP) ,R4 ; get re i “e0e add: 
34 A442 4C A D 4E 1371 MOVL BDB § 10$B8+4(R5) ,BDB$T gh SERM4(R4) ERI 3; retrieve seq # 
GF 1 ts 30$ CSB #BDB ¥-19° BDB$B_FLGS(R5) ; clear 10 in prog 
OOFC BF BA O4F7? 137 POPR #*M<R27R3,R4,R5,R6,R7> : restore regs 
0B 50 E€8 O4FB 1374 BLBS RO,40$ 3 get out on success 
Q0000000'EF 16 O4FE 1375 JSB RMSMAPERR : fill in STV 
0504 1376 RMSERR CJF : force CJF error 
05 0509 1377 40$: RSB ; return to caller 


SEP=1984 00:25:1 AX/VMS Macro v04-00 P 0 | 
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. -SBTTL RMSFRCJNL = Force ALL Journal Entries for a buffer 
FORCE_JNL = Force Journal Entries 


This routine performs a force operation to all open journals 
at the high water mark for a buffer. 


RMOJOURNL RMS Journaling Manager 16- 
v04-000 RMSFRCJNL = Force Att Journal Entries fo green 19 


Calling sequence: 
BSBW RMSFRCJNL 
Input Parameters: 
RS Address of BDB of Related buffer or 
Zero to flush all Entries. 
R9 IFAB or IRAB address 
R10 IFAB address if IFAB operation 
R11 Address of Impure Area 
Implicit Inputs: 
IFBSL_RJB Address of RJB 
Output Parameters: 
R1 = R3, RS Destroyed 


Implicit Outputs: 
None. 


Completion Codes: 
CJF = CJF error, Status from Q10 in STV 


Side Effects: 
May have switched to EXEC AST level. 


ee eal alah ab ah ah ah sh ah ab ah ah ah ad ah ak al ak ad ahead ah ad eal al eal ah ead eal eal eal eal eal eal eal eal 
= @ tOOODOOSCOSOSCDODDODOOODOOOOOOOOOCOOOSOO 

MBDONDOS SNL POW OP PPP PSP PPE Pr Pr PrPrPrPrPrPrPPrPrPrrrrrrrrrrryr>rrr>r>r>r>r>r 

ee cee el ee ee ec ee ee em ec ee ee ee ee ee ee ed od oe od od dd 

WIWWIWAIAI AIA PPOPOPNNPNNNYD 2 9 | | = §@ BQO OD OD000000000000-0-.000000000000000000000 ~4 

REAR OO ODNAUE WN OOO NAM EWN OOD NAA EWN 2S OONAU EWN 20 OD NAUEWN OO 


i www lolol elo elo ol elelol ol ele ele ole ole allel elo olelolol alo) 


RMSFRCJNL:: 
7E O1 00 MOVL #1,-(SP) 3 anticipate success 
OA O08 AD 91 CMPB IRBSB_BID(R9) ,MIRBSC_BID ; IRB operation? 
oo: ue BEQL : branch if yes 
55 OOAS C9 oY eee iL ESL. RIBAS) RS ; get RJB address 
55 OOA4 CA dO 10$: MOVL IF BSL_RJB(R10) ,R5 
OC OA AS 01 €1 15$: BBC #RIBSV_BI ,RIJBSW_FLAGS(RS) ,20$ : branch if no Bl 
: 8 MOVL #CJF$_BI,R2 3 indicate BI 
5A 0 BSBW force JNL : go do force 
50 —s«E8 BLBS RO,208 3 skip on success 
50 600 MOVL RO, (SP) 3: save error code 
0 E1 20$: BBC #RIBSV_AI ,RJBSW_FLAGS(RS) ,30$ : branch if no Al 
0 b MOVL #CJFS_AI,R2 : indicate Al 
49 BSBW Force JNL ; go do force 
50 € BLBS RO, 308 ; skip on success 
50 oD MOVL RO, (SP) : save error code 
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41 14 
OC OA AS 3. CO#E# 20] 14 $ 30$: BBC #RIBSV_AT ,RJBSW_FLAGS(R5) ,40$ i: branch if no AT 
52 04 b 246 14 : MOVL  #CJFS_AT,R2 ; indicate AT 
90 8 549 14 BSBW ERR TE JNL ; go do force 
0 8 E eet 1979 BLBS RO,408 3 skip on success 
6E D 2ef 122 MOVL RO, (SP) 3; save error code 
1A.0A AS 00 E1 338 1228 40$ BBC #RIBSV_RU,RIBSW_FLAGS(R5) ,50$ 3 branch if no RU 
51 00000000" 9F bg 38 1444 MOVL geCTLSGL_RUF RI : RU in prog? 
11 1 5 1445 BEQL 0$ : branch if not 
OC 11 Al 01 E1 56 1708 BBC #RUCBSV_ACTIVE,RUCBSB_CTRL(R1) ,50$ 
52. 01 565 144 MOVL #CJFS$_RO,R2 ; indicate RU 
907% 56 1728 BSBW ence JNL : go do force 
0350 € 8208 144 BLBS RO,508 3; skip on success 
6— 50 00 2gf Vee MOVL RO, (SP) 3 save error code 
50 8E& vO $871 1426 50$ MOVL (SP)+,RO ; get worst status 
0150 €9 QO574 145 BLBC RO, 60$ 3 get out on success 
05 0577 1454 RSB 
OOOOOO00'EF 16 0578 1455 60$: JSB RMSMAPERR : fill in $Tv 
F443 1456 RMSERR CJF : force CJF error 
05 0583 1457 SB 


i 


ae 
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LSBTTL FORCE_JNL = Force Journal Entries | 
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| 


5 
FORCE_JNL = Force Journal Entries 


This routine performs a force operation to the specified journal 
at the high water mark for a buffer. 


Calling sequence: 

BSBW RMSFRCJNL 

; Input Parameters: 
R2 Type of journal to be forced (CJF$_xx) 
R4 Address of BDB of Related buffer or 

Zero to flush all entries. 

R5 Adddress of RJB 
R9 IFAB or IRAB address 


R10 IFAB address if IFAB operation 
R11 Address of Impure Area 


IFBSL_RJB Address of RJB 

RJB$Q_CHAN One word is used as channel for Q10 

BDBST_JNLSEQ One lLongword contains high water mark for force 
; Output Parameters: 

RO - R3 Destroyed 


Implicit Outputs: 
: None. 


Completion Codes: 


Any Q10 status value, : 
Any 10SB status vaule from a journaling Q10. 


Side Effects: 
M 


: 
é | 
| 
: | 
: 
: 
| 
: Implicit Inputs: 
: } 
; | 
; 
: 
: | 
: | 
| 
; | 
5 ay have switched to EXEC AST level. | 
‘ | 


FORCE_JNL: 
MOVL 


been used as part of a 
journaling operation. 
get EFN 


; issue Q10 


50 v1 00 #1,R 3 anticipate success 
53034 00 MOVL R4,R : see if buffer present | 

07 ~«1 BEQL 10 : branch if not 

5334 Age 00 MOVL BDBST_JNLSEQ~4(R4)(R2],R3 i get high water mark 
3 1 BEQL 0$ ; if zero, bdb has not | 


DIAN 9 BE PEPE PEPE EPP EPP PPP PPP PPP PPP PPP PPP PPP PPP EE ESE 


soonocee" Es 16 10$: JSB RMSSETEFN 
1 P #*A<RO> 


a 
oOo 
-v 
ow 
” 

t 
. 


Q 
0 
0 
Q 
0 
Q 
0 
0 
] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SH ee eee eee ah ah sb bh bh hb ab cb db ab Ab Ah dh ah db Ak ah dh dh dh dh a dh eh ah dh dh ah hb ah ah ah a db bh hh db 


a eee ee ee ee ee ee ee ee ee ee ee eee 


PEW OOD NAN E WI 9 OO NAME WIN  O OO NA E WIN 0 OD NOU EWN OOO NOUE WN —O0 


RO, - 
RJBSQ_CHAN-2(R5)(R2), - 
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NL = F 2 sternal Entries ety Pi 92 $3: 3 LRMS SRCIRMOJOURNL MAR: 1 . (13) 

98 15 FUNC = #IO$_FORCE, - 

98 15 10SB = IRBSC_I0S(R9), - 

9B 1 ASTADR = RMSSTALLAST, = 

9B (1 ASTPRM = R9, = 

9B 1 = R3 ; high water mark 

BF 1 ; get out on error 

ce 15 RMSSTALL ; wait for completion 

F 1 IRBSL_10S(R9) ,RO ; retrieve status 
05 cc 12 208: ; return to caller 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Page 34 | 
v04-000 RMSDSCJNL = D seannect IRAB Journal Stru mii oets 9: 1:5 FRMS. SRCIRMOJOURNL MAR: 1 ° (14) | 
7 -SBTTL RMSDSCJNL = Disconnect IRAB Journal Structures 


+ 
RMSDSCJNL = Disconnect IRAB Journal Structures 


This routine deallocates the data structures for journaling record 
processing operations from the IRAB. 


Calling sequence: 
BSBW RMSDSCJNL 
Input Parameters: 


Rg Address of IRAB 
R11 Address of Impure area 


Implicit Inputs: 
IRB$L_JNLBDB Address of journaling BDB 


| 
| 

| 

| 

| 

| 

| 

Implicit Outputs: | 
, | 

| 


“—MWODULUMOOS OW—-TCOTVTCTVTVTVTVVV9VVTCVRV TIT 9TT00000000"00"0"0"0"0000000 rr 
be a a a a = a a ss td as as > bs 4» bs — > 5 2s os — 
PUPP PUPP SUL V SUSU USUSVSVS VSS SVSVSUSUSI SUIS VOSS STOOD 
SSNS NSS DS DD DDD DDD TTT BS BS BS BS BE NII 
AALAND 2 OI WNAUE WN OS COONAN EWN O OONAUES WR O10 NOUS WN OOo 


SOOOCOCOOCOCOCOCOOOSOOSOCSOSSSOSGOOCSOOSOOGOGOGOOOOOOOOOOOCOSDOOoOoO 
AMMMMMMD SD OOOO AAAAOHADAOAAOAOAOAOAAOOAAOAAOAAAAAAMAAOAN|OOAOO Z 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
: 
5 Output Parameters: 
: RO = RS Destroyed 
5 
3 ne. 
5 Completion Codes: 
3 None. 
5 Side et tects: 
5 None. 
5 
: Sa 
; RMSDSCJNL:: 
54 30 A9 dO 5 MOVL IRB$L_JNLBDB(R9) ,R4 ; get journal BDB address 
13° 05 BEQL 10$ ; skip if none 
00000000 ‘EF 16 05 JSB RMSRETJNLBDS ; deallocate it 
30 AD = 4 : 108 CLAL IRBSL_JNLBDB(R9) ; clear pointer 
54 2c A9 0 5 MOVL ASSO. ATA E IRD) ARS ; get AT MJB address 
F 1 : BEQL 0$ ; branch if none 
55 4 4 MOVL k4,R5 3; copy MJB address for FORCE call 
0188 30 05 BSBW ssa R'SFORCE_MJB ; force the IRB AT journaling record 
5 . ~ too orvers eaten! 
OOOO0O000'EF 16 05 JSB RMSRETB : give up 
2c Ad so k:ssCéOOS CLRL IPBSL AT OMLBUF (RO) ; clear LE 
05 05 20$ RSB 


r 


mc a - a 
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-SBTTL RMSDEAJNL = Close journaling on file 


) 


+ 
RMSDEAJNL = Close journaling on file 


This routine deassigns the journal channels open for the file and 
deallocates the journaling data structures from the IFAB. 


Calling sequence: 
BSBW RMSDEAJNL 
Input Parameters: 


Ro Address of IFAB 
R11 Impure area address 


C9 C9 CD CD CD COCO CDOCD SI 


SBN LOO OOD 


Sete Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Sse Se Se Sse Sse Ge Se Se Sse Sse Se tee 
+ 


Implicit Inputs: 


IRBSL_RJB Address of RvB 
Output Parameters: 
R1 = RS Destroyed 


Implicit Outputs: 
No 


Completion Coa s: : 
CJF - CJF Operation Error, CJF status from $DEASJNL in STV 


Side Effects: 
None. 


DWONAUL WN OOO NOAUE WN OO OONOUS Wr 
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Pee te et ot et ot ond ad oak ad al “ak Sab Ah Ab Ab Ar db ddr db Abr Abr Ab Ab dh db dh db ah ah abval ahah alvalahvahvalvalvalvalvalvalvalvalvalvalealvalvaivalvalvaleal 
ee ee eee ee ee ee eee SS S| 


DEPP XP AAP AAD AAD ADD DED DD DEDEDE DED DED PDP DUTT TUT 


Oe ee ett eT Tm — | — baa ns ea na nk ak at a en Ps Bn Dn os Bon Bn Dos Dona Bo oa Dona Sona Dna oa Dona Bn a ona on a Bn a Pn on a a ona ncaa ona on a a on On a a) 
WAWAIWWINIGIPPPOPIPINININDNINY 4 9 9  POOOCOOCOOCCOCOOOOOOOOOO 


DS OVINE DW UWF FM DROS DW OVUMMPINININIMONINININININIPNINPINPINININYD 


RMSDEAJNL:: 
7E 01 00 MOVL #1,-(SP) 3 assume success 
54 30 A9 OD MOVL IFBSL_JNLBDB(R9) ,R4 ; jnl BDB/Buffer address 
11 1 BEQL $ 3; skip if none 
5A oDD PUSKL R10 : save R10 
SA 59 00 0 MOVL R9,R10 ; R10 must be IFAB 
00000000"EF 16 1 B RM$RETJNLBDB : deallocate BDB/Buffer | 
SA —E 00 ¢ MOVL (SP)+, 3: restore R10 
30 ADs 4 CLRL IFBSL_JNLBDB(R9) ; clear pointer 
2C ADs : 23: CLRL IFBSL_ATJNLBUF (R9) ; sheer shor teut pointer 
3 to 
54 34 a9 00 § MOVL [LOR EXT IHL SUF (BP) 8 : get extend MJB address 
09 = BEQL $ ; Branch if none 
OOOO0000'EF 16 8 JSB RMSRETBLK1 : give it up 
34 AD D4 9 CLRL IFBSL_EXTJNLBUF (R9) ; clear pointer 
54 O0A4 C9 if 0 5$: MOVL ACSSL_RIO{RY) AG 3; get RJB address 
03; 1 1 BNEQ $ i skip if none 
O06F 31 § BRw 45$ 3 get out 
13 OA AS) «601Cé#ES 7$: BBCC #RIJBSV_BI ,RJBSW_FLAGS(R4) ,10$ : branch if no Bl 
4 SDEASJNL_S - 


RMOJOURNL 
v04-000 


RMS Journalin 
RMSDEAJNL = C 


CSET WS 


se journaling on file =SEP=-19 


AX/VMS Macro V04-00 
RMS.SRCIJRMOJOURNL .MAR; 1 


a } 


rw 


6 p 16 5 CHAN = RJBSW_BICHAN(R4) 
03 50 €8 Q63A 16 5 BLBS RO,10$ 3; continue on success 
6— 50 £»00 278 1 3 MOVL RO, (SP) 3 save error code 
13 OA AG) 02~=«CO#ESS dep 1640 BBCC #RIBSV_AI ,RJBSW_FLAGS(R4) ,20$ : branch if no Al 
645 164% SDEASJNL_S = ; deassign channel 
64 1966 CHAN = RJBSW_AICHAN(R4) 
03 50 E8 0652 164 BLBS RO,20$ 3; continue on success 
6— 50 £00 882 1608 MOVL RO, (SP) 3 save error code 
13 OA AS) «6(03——C*ESS de36 1968 BBCC #RIBSV_AT ,RJBSW_FLAGS(R4) ,30$ : branch if no AT 
65D 164 SDEASJNL_S = ; deassign channel 
B628 1648 CHAN = RJB$W_ATCHAN(R4) 
03 50 E€8 Q66A 1649 BLBS RO, 308 3 continue on success 
6— 50 00 be) 1929 MOVL RO, (SP) 3 save error code 
12 OA AS) «=(00-Stsé€ESS O67 1936 BBCC #RJIBSV_RU,RJBSW_FLAGS(R4) ,40$ 3 branch if no RU 
0675 165 SDEASJNL_S - 
0675 165é4 PHAN = RJB$W_RUCHAN(R4) 
03 50 €8 0681 1655 BLBS P 3 continue on success 
6— 50 £00 peas 1626 MOVL RO, (SP) 3: save error code 
OA AS =—B4 «(0687 =—1658 CLRW RJBSW_FLAGS(R4) 3; clear open flags 
53 59 DO 068A 1659 MOVL ; deallocate RJB 
00000000'EF 16 068D 1660 JS8 RMSRETBLK : 
OOAS C9 D4 0693 1661 CLRL IFBSL_RJB(R9) 3 evaporate pointer 
50 8E€ 00 1906 MOVL (SP)+,RO ; get true error code 
0150 €9 166 BLBC ~=—_-« RO, 508 : get out on error 
05 069D 1664 RSB 
069E 1665 
OOOOO000'EF 16 O69E 1666 50$: JSB RMSMAPERR 3 set STV 
06A4 1667 RMSERR CJF : force CJF error 
05 06A9 1668 $B 3 return to caller 


| 
| 
| 
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AA 1970 -SBTTL RMSALLOC_MJB = Alloc and init MJB 
AA 167 
ee 
GAA 1624 ; RMSALLOC_MJB = allocate and initalize a miscellaneous journaling buffer 
O6AA 1676 The MJB is used for audit trail entries and Al extend descriptions. 
O6AA 1678 : Calling Sequence: 
O6AA ise" ; BSBW RMSALLOC_MJB 
a 1 ¢ 3 Input Parameters: 
6AA 188 : R10 IFAB address 
sy 193? ; R2 mjb size in bytes 
Q6AA 1887 : Output Parameters: 
BeAA 1889 3 RO tat 
3 status 
vane 1930 : R1 MJB address 
06 1936 : Side Effects, Implicit Inputs, Implicit Outputs: 
Q6AA 1693; 
06 1694 ; None. 
O6AA 1695 ; 
BM ie i 
i 1698 RMSALLOC_MJB:: | 
QO6AA 1700 ASSUME <IRBSC_BID&1> EQ 0 
O6AA 1701 ASSUME <IFB$C_BID&1> EQ 1 
ce 1708 ASSUME IFB$B_BID EQ IRB$B_BID 
51 59 DO O6AA 1704 MOVL R9,R1 3; assume ifab addr in rl 
03 08 AD ~=€8 O6AD 1705 BLBS 1F8$B_B1D(R9) 5S : branch if structure is ifab 
51 69 00 eH 1706 $$ MOVL RBS$L_IFAB_LNK(R9) ,R1 3; get ifab address from irab 
ae a eS nt ee pre ee 
52 FE 8F 8 Q6BA 1710 ASHL #-2,R2 R2 : change bytes to longwords 
00000000" EF 16 O6BF 1711 JSB RASGETBLK : alloc an MJB on IFB page 
1A 50 9 06C5 Vig BLBC RO,10$ : gat out on erro 
08 Al 18 0 06C8 171 MOVB #¥JB$C_BID,MJB$B Slr 3 identify mB as "JB | 
14 A 20 Al DE O6CC 1714 MOVAL MJBS$T RIRCRI ) we . OOINTER(RI) : init descriptor 
3E BB 06D1 1715 PUSHR #*M<RT,R2,R Re : save MOVCS regs 
51 20A1 DE 605 1216 MOVA BST RIRIR : get RJR addrets | 
61 38 00 61 OO 2C 06D7 171 MOVC (ay) py arin gHORLEN. (R1)  ; zero the RJR overhead 
3— BA Rene 1713 a4 BT 1,R2,R3,R4, ; restore MOVCS regs | 
05 O6E2 1720 10$: $B 3 return to caller | 
} 


] 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25: AX/VMS Ma v04-00 P | 
v04-0 RMSWRITE_MJB . write Miscellaneous Journ gree 19 4 90:37:43 LRMS  SRCIRMOJOURNL MAR: 1 sings dh 
3 1? § -SBTTL RMSWRITE_MJB = Write Miscellaneous Journaling Buffer 
gh in i | 
GES 1766 ; RMSWRITE_MJB | 
6€3 1728 : This routine is used to write a journaling record described b | 
re) Vy : ; miscellaneous i rent tne better” : phate d wages stig a te, 
6E V7 1 ; Calling Sequence: 
6E 7 ; BSBW © RMSWRITE_MJB 
4 i 5: Input Parameters: | 
06E3 17 5 : Ro - IFAB or IRAB address 
bee Ve 8 : R5 - address of MJB 
bee Vie : Implicit Inputs: 
OGES 1748 ; MJB fields: 
bees 1744 ; JNL - CJF$_AI, BI, AT, or RU for journal channel to use 
O6E3 1745 ; FLAGS = various 
set: 1708 ; DESC - descriptor of embedded RJR to write 
set 188 : Output Parameters: 
O6es 1750 : RO - status | 
bees 173) : R6 - destroyed 
bee 1758 : Implicit Outputs: 
Bee 1732 ; MJB IOSB has status of operation. 
06E3 1757 : Side Effects: 
6E 1738 : 
6—3 1759; None. 
06E3 1760 ; 
bees 762 
BOE 1768 RMSWRITE_MJB:: 
1C if ie 1765 PUSHR #*M<R2,R3,R4> 3 save work registers 
4% 39 Od re 1708 MOVL R9,R4 3; get potential IFAB address | 
a 1768 ASSUME IFB$B_BID EQ IRB$B_BID | 
0B O08 AS 91 O6E 1790 CMPB FBSB_BID(R4) ,#IFBSC_BID ; file or record operation? | 
03 13 O6EC 1771 BEQL $ ; branch if IFAB 
54 69 00 ra 1i7¢ MOVL IRBSL_IFAB_LNK(R9) ,R4 ; get IFAB address 
56 O0A4 C4 00 6F1 1774 5$ MOVL {EGSL_AIBCAA) RG : get pointer to RJB | 
m9 oer 107) BEQL 5$ :; branch if none | 
5@ 0A AS 00 €1 pore 1707 BBC #MJBSV_INIT MJBSW_FLAGS(R5),35$ ; skip if RJR in MJB is useless | 


mM 2 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25: AX/VMS Macro V04-00 Page 39 
yoe-000 RMSWRITE_MJB : urite Miscellaneous Journ aad 93:53:17 LRMS. SRCIRMOJOURNL MAR: 1 . (17) 
53 D4 O6FD 1779 CLRL R3 ; initialize MODIFIER flags 
04 94 AS 4 1 off 1780 BBC #MJBSV_FORCE ETM FLASS (RS) 108; skip if not write-thru $5 jnl 
3 40 BF «90 At 7 1 MOVE § #WRMODSM_FORCE,R : indicate write-thru to jnl | 
52 OC AS 9A Q7 5 17 : 10$: MOVZBL JCP _JNL(R5) Re s get JNL type for channel calculati 
54 59 00 oe 1784 MOVL R9,RS ; Initialize astparm to IRAB address | 
03 OA AS 9¢ E1 QO70F 1785 BBC SA08 YF SLE AJESH FLAGS CRS) 208 ; branch if assumption OK 
54 A 00 Bo43 i § MOVL R10,R4 3; otherwise astprm is IFAB address 
QOO0O00000'EF 16 0717 1788 20$: JSB RMSSETEFN ; get an EFN to wait on 
01 BA 0710 1789 POPR #*M<RO> 3; and stick it in RO 
O71F 1790 
O71F 1791 SWRITEJNL_S = : 
O71F 1036 CRAN = RJB$Q_CHAN-2(R6)LR2I, - : channel of journal 
} O71F 179 WRIBUF = | ye teateiciatia - ; RJR descriptor 
O71F 1794 MODIF = R3,- ; modifier flags 
at 1795 EFN = RO,- 3; event flag to wait on 
71F 1796 10SB = IRB$L_IO0S(R9),- i; status of operation 
O71F 1797 ASTADR = RMSSTALLAST,- 3 back to RMSSTALLAST 
O71F 1798 ASTPRM = R4 3; IFAB or IRAB 
O73F 1799 
2150 €9 O73F 1800 BLBC RO,503 » gO away on error 
140A AS 03 €0 O7he 1801 BBS #M.JBSV_SYNCH_SHARE ,MJBSW_FLAGS(R5),40$ =; branch if SFSB Lock 
074 1006 ; can't be given up 
OOOO0O000'EF 16 0747 180 JSB RMSSTALL ; wait for completion 
18 AS OC AY 7D O74D 1804 30$: MOVQ iRBst. 10S(R9) ,MJB$Q_IO0SB(R5) 3; save status and seq no in MJB 
OE 50 «ED Or2g 1805 BLBC RO,50$ 3 gO away on error 
0755 1806 35$: i 
1¢ BA 0755 bs t4 POPR #*M<R2,R3,R4> 3; restore registers 
0757 1808 RMSSUC ; indicate success 
05 Been 139) RSB 3; return to caller 
OO0O00000"EF 16 0758 1811 40S: JSB RMSSTALL_LOCK ; wait, keeping file lock (used for 
0761 1316 3 extend) 
EA 11 0761 181 BRB 30$ ; go check status 
0763 1814 
oF 8 1815 50$: 
1C BA 0763 1816 OPR #*M<R2,R3,R4> 3; restore work registers 
0765 1817 RMSERR F,R1 3; default error status 
OOO000000'EF 17 O76A 1818 MP RMSMAPERR 3 map error code and return 
0770 1819 ; to caller 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25: AX/VMS Macro V04-00 Page 
v04=000 RMSFORCE MJB | Force MJB Entries —eeen eee 98S ee ees CHRROJOURNL MARS 1 . 

! cae «SUBTITLE RMSFORCE_MJB = Force MJB Entries 

> RMSFORCE_MJB 

1 This routine is called at disconnect to force the journal entries 

1 described by the high water mark in the MJB. (Currently only used 

! for AT record operations. 

1 Inputs: 

! r5 MJB address 

Implicit Inputs: 
contents of the MJB, including MJB$B_JNL and the sequence number 


in the IOSB. 
rjb has the channel assigned to the AT journal 


Outputs: 
r0 = success or failure 


Side Effects: 
AT record journal entries flushed. 


Be Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Se Se Se Se Se Sse Ge Se 


RMSFORCE_MJB: : 


ee ne ee ee ae bane tame ame ne pn ta ta in an ti Dn te a ti tn Di tn i tn ne 
SF FODWODMOWDOAOM FP UWOOCOCOOCOCOCOCOCOCOCOOOCOO OOOO OOOOOOOOO 


COOCOOCCOCOCOSOOCOCOOSCOSOOSCOSCOCOSOCOBGOSCOOOOCOOOOOOOOCOOOOOOOOOOOOOO VC 
DOWWOWW YS }& & FP WOW WWWOWOWON NNN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 RMSSUC ; default to success 
3¢—Cs«éwBB 185 PUSHR #*M<R2,R3,R4,R5> 3 save work registers 
54 O0A4 CA d9 1 MOVL  IFBSL_RJB(R16) ,R4 ; get RJB address 
39 «1 1 BEQL 40 3; get out if none 
52. OC AS QA 1 MOVZBL MJB$B_JNL(R5) ,R2 : get JNL identifier 
OOOO000O'EF 16 185 JSB RMSSETEFN 3 allocate an event flag 
01 BA ! ; POPR #*M<RO> ; get EF in RO 
1857 SFORCEJNL_S = 
1858 CAAN = RJB$Q_CHAN-2(R4)CR2], - 3 channel of journal 
1859 SEQNO = MJB$Q_IOSB+4(R5), - 3; sequence number 
1860 EFN = PN. - 3 event ree 
1861 10SB = IRBSL_IOS(R9), - ; use IOSB in IRB 
1 66 ASTADR = RMSSTALLAST, - : usual AST address 
! 97 ASTPRM = 29 ; IRAB operation 
1150 €9 1865 BLBC ; out on error ; 
00000000'EF 16 7 1866 JSB RMSSTALL ; wait for completion 
18 AS 6c A9 7D D 1867 MOVQ IRB$L_IOS(R9) ,MJB$Q_I0SB(R5) ; grab status for fun 
0 20 E9 g 1868 BLBC ° ; Out on error ‘ 
C BA HH 40$: POPR #*M<R2,R3,R4,R5> : restore work registers 
05 f 7 } uy RSB 3; return to caller 
H 18% 50$: RMSERR CJF,R1 ; cjf error 
OOO00000'EF 16 rep 187 JSB RMSMAPERR 3 map the error code 
FO 3611 «2075 «(1874 BRB 408 ; return to caller 


RMOJOURNL RMS J -SEP-1984 225: ¢ - RM 
ane nalin 16=SEP 138 00:25:1 AX/VMS Macro v04-00 Page $ 


Q peneger 
DB = Allocate RJB, Journal 5=-SEP-19 


De 
ST el 
o-. 


our | 
RMSALLOC_RJB_ 4 16:21:57 CRMS.SRCIRMOJOURNL.MAR; 1 ( | v04 
O7¢5 1876 SUBTITLE RMSALLOC_RJB_BDB ~ Allocate RJB, Journal @DB | 
are ! 8 ; RMSALLOC_RJB_8DB 
ores } 4 ; This routine allocates an RJB and JNL BDB for use by RMS journaling. 
o7csS 1 ee ; Inputs: 
Bree 13 ; R9 IF AB 
QO7C5 1884 ; | 
07C5 1885 ; Outputs: 
O7C5 1886 ; RO status 
Bree nit ; IFBSL_JNLBDB address of JNL BDB 
7C5) «(1888 ; IFBSL_RJB address of RJB 
07C5 1889 ; 
07C5 1890 ; Side Effects: 
07C5 1891 ; None. 
07Cc5 1336 ; 
07C5 1893 ;-- 
07C5 1894 
07C5 1895 RMSALLOC_RJB_BDB:: | 
07C5 1896 
3 BB O7C5 1897 PUSHR #*M<R3,R4,R5> 3; save work registers 
00A4 C9 «DS O7C7 = 1898 TSTL IFBSL_RJB(RI) ; RJB present? 
1E 12 O7CB 1899 BNEQ 10$ : branch if yes 
51 59 p00 QO7CD 1900 MOVL R9,R1 ; allocate RJB 
52. 03 00 O7D0 1901 MOVL #RJBSC_BLN/4,R2 : size of RJB 
OOOO0000'EF 16 0703 1902 JSB RMS$GETBLK ; get it | 
6150 €9 07D9 1903 BLBC —-. RO, 308 : get out on error 
00A4 C9 «651 «=O «~O7DC «(1904 MOVL R1,1FBSL_RJB(R9) ; Save RJB address 
08 Al 16 90 OQ7E1 1905 MOVB #RIBSC_ -RJB$B_BID(R1) : initialize RJB 
O7E5 1906 SSB. ss WIFBSV"JNL-IFB$B-JNLFLG2(R9)  : indicate RJB present | 
30 A9 «DS O7EB 1907 108: TSTL IFBSL_JNLBDB(R9) ; JNLBDB already allocated? | 
4A 12 O7EE 1908 BNEQ 20$ ; branch if so 
O7FO 1909 
O7FO 1910 ; 
O7FO 1911 ; If Al journaling a relative file - allocate a bigger buffer, on large enough 
44 1316 ; to contain prolog (512 bytes). | 
OD OOAO C9) «=6—03)—C—CiED: «=COO7FO «1914 BBC #IFBSV_AI,IFBSB_JNLFLG(R9),15$ ; skip if not Al sqyraet ing 
23 A9 01 «91 «(O7F6 1915 CMPB #]FBSC_REL, 1FBSB_ORGCASE(R9) : is it relative file? 
OF - te ae 1318 BNEQ 15$ ; branch if not relative 
O7FC 1918 ASSUME <RJRSC_BLKLEN+512> GT RJRSC_FILNAMLEN | 
55 02464 8F 3C its 1920 MOVZ2WL 9 #<RJRSC_BLKLEN+512>,R5 ; size of buffer 
05 =11 p88) 1 1 158 BRB 16$ ; join common code 
55 01C4 8F 3C 0803 19 : MOVZWL 9 #RJRSC_FILNAMLEN,RS ; size of buffer to allocate 
7E SA 00 0808 1924 168: MOVL 0,- ; save R10, ALDJNLBUF needs R10=IFB 
SA 59 D0 0B 1925 MOVL 9, R10 : copy IFB address 
55 QOOOOIFF BF C¢ OF 19 : ADDL2 #511,R ; round to page boundary | 
55 QOOOO1FF 8F CA 1 19 BICL #511,R 3 pe 
QOOO0000"EF 16 1¢ 1928 JSB cyt) ad ; allocate jnt BDB and buffer 
5A 3 4! § 1929 MOVL ($P)+,R1 3: restore R10 
1 E 1930 BLBC RO,40 ; get out on error 
30 Ad ¢ DO 8 1931 MOVL R4, [FBSL_JNLBDB(R9) >; Save address of JNLBDB 
—E 6B C 1932 PUSHR #*M<R1,R2,R5,R4,R5> ; save regs zeroed by MOVCS 
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Reneper 7. SEP-19 
B - Allocate RJB, Journal -SEP-19 
MOVL 2 BSL_ADDR(R4),R1 
moves , (RT) ,#0,#RIRSC_H 
POPR M<R1,R2,R3,R4,R5> 
RMSSUC 
POPR  #*M<R3,R4,R5> 
RSB 
MOVL _RO,=(SP) 
MOVL R9.R 
MOVL  IFBSL_RJB(R9),R4 
JSB RMSRETBLK 
MOVL (SP)+,R 
POPR #>M<RS,RG,RS> 


Sete Se Se Ge Ge Ge Se Ge Be Ge 


AX/VMS Macro V04-00 
RMS.SRCIRMOJOURNL .MAR; 1 


get RJR address 


; zero the RJR overhead 
; restore regs zeroed by MOVCS 


success 
restore registers 
to caller 
deallocate the RJB 
save error 


code 
address of block holding space 


address o 


return space and to caller 
ode 


restore error c 
restore registers 
to caller 


RMOJOURNI. RMS J 
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Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Pp 43 RM 
2 D- Orite AT Entry for Re mise} y 90:33:13 FRMS SRCTRMOJOURNL MAR: 1 ret (20) | VO 


-SUBTITLE RMSAT_JNL_RECORD = Write AT Entry for Records 


ze 
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344 
; RMSAT_JNL_RECORD 


This routine is responsible for writing ony AT journaling record 
required to describe a record operation. This routine's primary 
task is to make sure the RJR overhead is filled in properly, and 
the correct MJB inputs are set. RMSWRITE_MJB is then called to 
actually perform the CJF write service. 


woooooovon9ndw oz 


Calling Sequence: 

BSBW RMSAT_JNL_RECORD 

This routine is called only by RMSEXRMS. 
Input Parameters: 


RO operation status to this point 
R8 user's RAB 

Ro IRAB 

R10 IF AB 


Implicit Inputs: 


IRBSL_ATJNLBUF = pointer to MJB ay eal RJR 
RJR$B_OPER - must be filled in by caller 


Output Parameters: 


r0 operation status 
ri destroyed 


Implicit Outputs: 
None. (for now) 

Side Effects: | 
RJR written to CJF | 


RMSAT_JNL_RECORD: : 


SOOODOOCOOOOCOOCOCOCOCOCOSOOOOSOOOCOOOOOCOOCOCOCOC OOOO OOCCOOCOOCOOCOOOCOOCOOOCOCSOO 1 
©€0000000 00 60 09 00 0d 09 09 G0 C9 00 Od G0 G9 C0 Od C0 09 09 09 OS OD OD CD C0 C0 Cd CD 09 CD 0D OD CD CD CD CO CD CD CO CD CO COORD ON COON OD CDCOCDCOMVCDCD 6 0(C 
PDP DP PPP TI eS 
DWIMNMIOOM OOO OWA oS 
DOODOOO OOOO OOOO OO 000000009 09 09 09 09 09 SIN NNN NN NOP AAA AAA AE AIT 
OE 0 OOO MEW) 9 OD NAME WIN OC OD NOAM EWR)" O OONOAUE WR)" OOONOUS WO” 


59 OS TSTL R9 3 any structure address? 
01 12 BNEQ 2s : if no, must be structureless exit 
05 1$: RSB 3 nothing to do 
ASSUME IFBSB_BID EQ IRB$B_BID 
OA O08 AD 91 2s: CMPB {£888_B1D(R9) #1ROSC_BID :_is this an IRAB? 
Fo s «12 BNEQ $ : if neq no, forget it 
F3 OOAO CA gs E1 3BC #1FBSV_AT, IFBSB_JNLFLG(R10),1$ ; skip if not AT journaling 
0 6B PUSHR #*M<R4,R5> ; save work registers 


RMOJOURNL RMS Journaling Ma nager 16-SEP-1984 00:25: ‘13 AX/VMS Macro v04-00 Page 44 | 
v04-000 RMSAT_JNL_RECORD = Write AT Entry for Re -SEP=-1984 16:21: RMS.SRCJRMOJOURNL .MAR; 1 nr 
55 2C a9 0D 6A § MOVL A090. AT ILBUF CRP) JR i get MJB address 
* ° 5 BEQL 0$ ; skip if none 
7 3 
4 19 ; Fill in required MJB fields 
OC AS) 04 90 087 1g ’ MOVB = #CJFS_AT.MJBSB_UNL(RS) ; indicate we're audit trail yiournating 
OA AS) «6B4 «(0874 «(201 CLRW MJBSWFLAGS(RST thing special for WRITEJ 
10 AS O04C 8F C erp 2 MOVZWL #RJRSC_AT_RECLEN,MJBSQ _péseers) 9 set up record dine’ 
54 20A5 OD 7D HE MOVAL MJBST_RJR(RS) RS ; get RJR address in R4 
05 AG OD 088 oi TSTL  RJRSB-OPER(RGS ; any op specified? 
51 1 4 18 BEQL : : p 1 
4F OA AS 00 E pace 833 BBCS #MJBSV_INIT,MJBSW_FLAGS(R5) ,90$ : skip Hlting in RJR if already 
0888 0 1 10$: RJR overhead filled in 
24 AG 50 dO 8B § MOVL RO,RJRSL_AT gi iyett : get status 
O88F 20 SSB #16, RIRSC_AT_STS( : make it an RMS status 
28 AG «60C AB” ODO 0894 0 4 MOVL RABEL “STVTR8S, RIRSL _AT_STV(R4) : and get STV also 
0899 20 § : Pull user's request from RAB into jevrnel record. Must probe structures. 
0899 2027; All velexent data that was available at the be ody of the operation 
+444 . 8 3; is already in the journal record. It was put there by RMSAT_COM_RAB. 
58 DS 0899 2030 20$:  TSTL RB : user structure? 
17 13 0898 2031 BEQL 60$ : branch if no RAB 
089D 036 IFNORD #RABSC_BLN, is 60$ : skip rest if not readable 
01 68 91 OQO8A5 03 CMPB (R8), #RABSC_B ; is it a RAB? 
OA 12 OBAB 2034 BNEQ 60$ : branch if no RAB 
SBAA 5036 
OBAA 037 : We found a readable RAB, now fill AT entry in with the RAB contents. 
44 AG 10 A8 DO OBAA 039 : MOVL RABSL_RFAO(R8) ,RJRSL_AT_RFAO(R4); ist part of RFA 
48 AG 14 AB BO Baar Bey MOVW RABSW_ “RFAG(RB), ;RURSW AT “RFA4(R4); 2nd part of RFA 
51 41 AG 0884 ok 60$: MOVZBL RJRSB_AT_KSZ(R4) ,R1 : get key size 
10 AS 51 CO 0888 204 ADDL2 R1,MJBSQ_-DESC(RS 55 3; account for key size 
FE24 OBBC O44 BSBW RMSWRITE-MJB : write the AT record 
Beer b49 ASSUME RJRSL_AT_STV EQ RJRSL_AT_STS+#4 
24 AG «67C «(OBBF 62048 CLRQ RJRSL_AT_STS(R4) ; init status for next time 
05 AG 34 pete be8 CLRB RJRS$B_OPER(R4) 3 and operation 
f3 5084 
aac O36 : Now zero search KEY so it doesn't Linger in the buffer. 
51 41 i in bcs bee . + RRS. AT_KSZ(R4) ,R1 ; get key 8 ates for clear 
3; 8 
OF ge cB 2$ PUSHR #*M<RO,R R3> : ke Move x? isters r 
4C AG 651 «00 40 AK COs cD 3 MOVCS ro RIRGT A Revie, ,#0,R1,- ; zero out KEY for next time 
OF BA D3 33 POPR #*M<RO,RT,R2,R35> t restore MOVC3 registers 
30 A D7 61 ros: POPR #*M<R4,RS> 3 restore work registers 
5 b9 62 80$: RSB 3: return to caller 


F 


RNL fournal in 16-S 4 5: AX/VMS Macro V04-00 Page 45 
meat _JNL, RECO RD - o*erite AT Entry for Re 87865 71984 92: $3 3 } ERMS. SRCJRMOJOURNL MAR: 1 . (20) 
DA 63 
- ee 90$: 3; fill in RJR overhead 
+ $6 ASSUME RJRSB_ENTRY_TYPE EQ <RJRSB_VERSION+1> 
0602 8F B80 DA o8 MOVW ot ie Ay ow, om. - 
3 A D 8 RJR$B ON(R4) rsion type 
04 AG AA 90 E 0 MOVB 1Bs8- aay ECHO» : RSB_ ORG(R4): file organ zation 
8B E 71 PUSHR RG ; a pfaursters MOVC3 destroys 
55 38 AA OD 6 E re MOVL Trost PER CRION. Re address 
08 AG 0920 C5 1¢ 2 EB 7 mMOVC3 PFUASS. J RCiperoaet TNLID(RS). puste OTR DERG). journal id 
™ | te gre POPR Toche. Ri »R2,R3,R4,R5> ; Festore Moves registers 


BRW 1 3 join common code 


RMOJOURNL RMS Journ Mana 16-SEP-1984 
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fs) n er 0:25: 46 | 
ON_FI aM = Get common AT file data 5-SEP-1584 90:33:47 ERMS SRCIRMOJOURNL MAR: 1 etty vo 
4! a as -SUBTITLE COMMON_FILE_AT = Get common AT file data | 
FY hi > COMMON_FILE_AT 
F7 1: This routine is used to fill in the AT journal entry with data from the 
4 § 3 IFAB at MAPJNL time. | 
a 0 , : Inputs: 
O8F7 : ; r8 FAB 
F7 : r9 IF AB 
F7 8 $ 
F7 ; Outputs: 
O8F7 90 ; 
O8F7 2091 ; AT journal record fields filled in. 
O8F7 O36 : 
pare bar : Side Effects: 
OBF7 2095 ; Currently, the STS/STV is forced to success due to difficulties 
O8F7 54 3 in_ acquiring the info when the journal entry must be written. 
O8F7 2097 ; IE,, can't do it at exit RMS Like record operations because 
O8F7 2098 ; data structures must be deallocated at release time. Better 
O8F7 2099 ; solution is to make file AT info hendled by an MJB also, and write 
obey 130 3 and deallocate the file MJB at exit RMS.) 
O8F7 108 ; 
OBF? 103 COMMON_FILE_AT: | 
04 BB O8F7 2105 PUSHR #*M<R2> 3 save work register 
52 2C Ad 00 Bare i3¢ MOVL IFBSL_ATJNLBUF(R9),R2 ; get address of journal record (RJR) 
SA A2 A9 90 O8FD $108 MOVB IFBSB_FAC(R9) ,RIRSB_FAC(R2) ; fill in specified file access | 
5B A2 4E AD 90 B36 $193 MOVB IFBSB_SHR(R9) ,RIRSB_SHR(R2) ; fill in specified file sharing | 
48 A2 9 pO 0907 2110 MOVL B$L-HBK(R9) ,RJRSL-ALLOC(R2) ; fill in high allocation 
24 A2 08 AB DO 090C git MOVL  FABSL-STS(R8),RURSL_AT_STS(R2) ; status 
28 A2 =~O0C AB =O (0917 118 MOVL  FABSLISTV(RB) ,RURSL_AT-STV(R2) ; STV 
2C A2 18 AB DO Baie siz MOVL FABSL_CTX(R8) ,RIRSL_AT_CTX(R2) ; User definable CTX field 
04 BA 091B $132 10$ POPR #*M<R2> 3 restore work register 
05 091D 2116 RSB : to RMSMAPJNL 
| 
| 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro Vv04-00 P 47 | 
v04-000 RMSAT_COM_RAB = Get common AT record dat er Yi 98: 1:5 RMS .SRCJRMOJOURNL .MAR; 1 oe (22) | 
SIE 2118 SUBTITLE RMSAT_COM_RAB = Get common AT record data | 
git : ; AT_COM_RAB 
91E 21 ¢ : This routine scarfs up and puts in the RMS journaling record the | 
ae ! i : common RAB data at the beginning of an operation. 
aie : 5 ; Inputs: | 
O9iE 1 5 : R1 rie operation id 
91E 2128 ; R8 RAB (the sucker is assumed to be probed.) 
Bore 129 ; R9 irab 
Bote ! ; R10 ifab 
OgiE g13e ; Outputs: | 
O91E 2134 ; Some AT record RJR fields filled in. | 
O91E 2135; 
BSE ghee i 
E 
O9TE 138 RMSAT_COM_RAB: : 
10 BB 091 140 PUSHR #*M<R4> ; save work register 
5420 APO 0920 5141 MOVL —_IRBSL.ATJNLBUF (R9) ,R4 S get MJB address | 
ea b95¢ 106 BEQL 60$ ; skip if none 
54 20 AG DE bese ae MOVAL MJBST_RJR(RS) RS ; get RJR address in R4 
3C AG «604 AB OO 092A 2146 MOVL §RABSL_ROP(R8),RURSL_AT_ROP(R4) ; user's ROP 
40 AS 835 AB 90 «(O92F 2147 MOVB RABSB_KRF(R8),RJRSB_AT_KRF(R4) ; user's key of reference 
42 AQ 16 AB 90 0934 2148 MOVB  #RABSB-RAC(R8),RJRSB_AT_RAC(R4) ; user's record access 
05 AS «651 90 0939 2149 MOVB R1,RJR$B_OPER(R4) 3 operation code 
2C A& «618 AB ODD $378 139 MOVL RABSL_CTR(R8),RIRSL_AT_CTX(R4) ; User context field 
0945 5152 ; | 
Boe 138 ; Probe key buffer before getting key. 
01 16 AB 91 0942 2155 ° CMPB = RABSB_RAC(R8) , ARABSC_KEY ; keyed access? 
1A 12 0946 2156 BNEQ 60$ : if not, no key size 
41 AG 34 ag 90 0948 137 nOVB RABSB_KSZ(R8),RJRSB_AT_KSZ(R4) : user's key size | 
: zero, no ke 
bee 12 IF NORD RJRSB_AT_KSZ(R4) ,RABSL_KBF (R8) ,60$ 3; skip if sante get keybuffer 
957 2161; 
0387 196 3 Copy search key into journal record 
3E 0957 2164 ° PUSHR #*M<R1,R2,R3,R4,R5> ; save MOVC3 registers | 
41 AS = =28 «0959 «2165 MOVCS RJRSB_AT_KSZ(R45,- : move KEY_SIZE number of chars 
30 B88 095C 166 RA KBF(R8),- : from rab keybuffer 
4C AG 95—E 216 RJRS$T_AT_KEY(R4) : to journal record 
E—E BA a 168 POPR #*M<RT,R2,R3,R4,R5> : restore MOVC3 egisters 
10 BA 0962 190 608: POPR #*M<R4> ; restore work register 
05 0964 2171 70$: RSB ; to caller 
965 178 
965 217 ~END 
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RMOJOURNL RMS Journaling Manager 16-SEP-1984 00:25:1 AX/VMS Macro V04-00 Page 49 RM 
Symbol table . : aot 7 93:53:43 URNS. SRCIRMOJOURNL MAR: 1 ° (22) vO 
IRBSL_ATJNLBUF 2 ¢ RJRSB_AT_RAC = 48 
IRBSL_1FAB_LNK = RJRSB_ENTRY_TYPE z | 
IRBSL_10S = RJRS$B_FAC 2 A | 
IRBS$L_ JNLBDB = RJRSB_FNS = 38 
JBDB = RJRSB_OPER 2 
TYP “ C RJRSB_ORG = 4 | 
PJNL 43 q 01 RJRS$B_SHR = 00 8 
MJB$B8_B1D = 0808 RJRSB_VERSION = 38 0 
MJGS$B_ INL = 9 0 RJRSC_AT_RECLEN = 0000004C 
MJBSC_BID = 99 RJRSC_AT_RECORD = 00000006 
JBSC_BLN = 000 be RJRSC_BLRLEN = 00000044 
MJBSL_POINTER = 44 4 RJRSC_EXTLEN = 494 to 
JB$Q—DESC = 19 RJRSC_FILNAMLEN = 000 iS8 
MJBS$Q~10SB = aa RJRSC_HORLEN = 00000038 
MJBST_RJR = 00000 $8 RJRSC_IDX = aaa | 
MJBSV_FILE = 000000 RJRSC_MAPPING = 00000001 
MJBSV_FORCE = 00000001 RIRSC_MAXVER = 444.6434 
MJBSV_INIT = 90000000 RJRSC_RECLEN s 4 
MJBSV_SYNCH_SHARE = 0000000 RJRSC_REL = 00000001 
MJBSW_FLAGS = QO00000A RJRSC_SEQ = 00000000 
MODE 44 44 ¢ R 01 RJRSL_ALLOC = 00000048 
OPEN 444 R 01 RJRSL_AT_CTX = 0000002C 
PCBSC_STS = 00000024 RJRSL_AT_RFAO = 00000044 
PCBSL_ = 0000008C RJRSL_AT_ROP = 0000003C 
PCBSV_RECOVER = QQ000001A RJRSL_AT_STS = 444 $4 4 
PSLSC_EX = 00000001 RJRSL_AT = 00000028 
RABSB_KRF = 00000035 RJRSS_F ICENAME = 00000100 
RABSB_KSZ = 00000034 RJRST_AT_KE = 0000004C¢ 
RABSB_MB = 00000037 RJRST_F ICENAME = 000000C4 
RABSB_RAC = Q0000001E RJRST_JNLI = 44 9434 
RABSC_BID = 00000001 RJRSW_AT_RFAG = 00000048 
RABSC_BLN = 00000044 RJR$_CLOS = 00000002 
RABSC_KEY = 00000001 RJR$_OPEN = 00000011 
RABSL_CTX = 00000018 RMSACDJNLBUF eeereeee 01 | 
RABSL_KBF = 00000030 RMSALLOC_MJB 000006AA RG 01 
RABSL_RF AO = 00000010 RMSALLOC _RJB_BDB 000007C5 RG 01 
RABSL_ROP = 00000004 RMSASSJNC 00000168 RG 01 
RABSL_STV = 0000000C RMSAT_COM_RAB 44 6g RG 01 
RAB$V_BIO = 00000008 RMSAT~ JNL_RECORD 00000857 RG = 01 
RABSW_RF AG = 00000014 RMSCORJNL eat a RG 01 
RBDB = si 44 444 RMSDEAJNL 44 F2 RG 01 
RJBSB_ = 0000000 RMSDSCJN 0000 368 RG 01 
RJBSC_BID = 00000016 RMSFORCE MJB 00000770 RG 01 
RJBSC_BLN z 900 90 RMSFRCJNC QO000S0A RG 01 
JB$Q_ CHAN = RMSGETBLK eeeeeeee XX 01 
RJBS$V_Al = ON 38 RMSGETFILNAM eeeeeeee § X 4 
RJBSV_AT = 00 ° 0 RMSGETJNL 00000004 RG 1 
RJBSV_BI = 8 0001 RMSMAPERR aeeeeree = X 01 
RJBS$V_OPEN = 00000004 RMSMAPJNL 0000038C RG a 
RJBSV_RU = $4 00 RMSMAPJNL_RU 00000588 RG 1 
RJBSW_AICHAN = 0000 O06 RMSRETBLK eeeeeeee x 1 
RJBSW_ATCHAN = 00000006 RMSRETBLK1 eeeneree =X 1 
RJBSW_BICHAN = 2 RMSRETJNLBDB aeeeeeee§ XX 01 
RJBSW_FLAGS = A RMSRTVINL 000000FS RG 1 
RJBSW_RUCHAN s 9 RMSSETEFN aeeeeeee = X 1 
RJRS$B_AT_KRF = 004 RMSSTALL eeeeeeee = § xX 1 
RJR$B_AT-KSZ = 00000041 RMSSTALLAST aeeeeeee =X 1 


3 source Lines were read in Pass 1, produci 
pages of virtual memory were used to define 


§} 


RMOJOURNL RMS Journaling Manager 16-SEP-1984 00: 
Symbol table . ° gr Ee -1obe 90:8 
RMSSTALL_LOCK eeaneere =X 1 
RMSWRITE “MJB $3 RG 1 
RMSWRT INC 44B RG 1 
RMSWRTJNL_OBJ 442 RG 1 
RMS$_ = 8 49 
RMSS$_FACILITY « 00000001 
RMS$_JNF = 16052 
RMS$_JNS = 187F4 
MSS_MBC = 0001 if 
S$_NOJ = 5 4 
RUCBSB_CTRL = 0000 git 
RUCBSV_ACTIVE = B28 4 
S$S_FAC_NO = 00 3 6 
STS$V_FAC_NO = 0000001 
SYSSGETTIA eeeeeeee GX 01 
SYS$Q10 eeneeeee GX 01 
UFO 00000160 R 01 
WRF LOC = 00000010 
WRFLGSM_OBJECT_ID = 00000008 
WRFLGS$V_BI = 00000001 
WRFLG$V_RUALSO = 00000002 
WRMODSM_FO = 444 oe 
WRTJNL 00000452 R 01 
Pm women mame eee nem + 
! Psect synopsis ! 
pow eo ecw oe wma mae + 
PSECT name Allocation PSECT No. Attributes 
, 8... 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS 
RMSRMS_ JOURNAL 0000096 ( 2405.) O1¢ 1.) PIC USR CON” REL 
SABSS 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS 
poser es eee eo sew onan wmemana$ 
! Performance indicators H 
twee moesre sem one wee roo manwewe 
Phase Paye faults CPU Time Elapsed Time 
Initialization 30 0:00: 8.03 0:00:00.93 
Command processing 119 0:00:00.68 B23: 4.6C 
noes pr ‘ 721 00:00: 4:93 0:01:34.6 
ymbol table sor 2:00:04. :00:08. 
Pass 369 0; :07.7 0:00: 8:9 
Symbol table output 29 B: 700.26 0:00:00. 
Psect synopsis output : 8: 04 3:3: 11 
Cross-reference output 0:00:00.00 0:00: 00 
Assembler run totals 127 0:00:47.71 0:02:07.4 
The urrkine set 4 tate was 2400 pages. : 
189336 bytes (370 pages) of virtual memory were used to buffer the intermediate code. 
There were 170 pages of symbol table space allocated to hold 3235 non-local and 104 local 


ng 20 object records in Pass 2. 
0 macros. 
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(22) 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 


GBL NOSHR- EXE 


LCL NOSHR EXE RD 


symbols. 


RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


i 
—_ 
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VAKX=-11 Macro Run Statistics P=-1984 16:21:5 


RMS .SRCJRMOJOURNL .MAR; 1 (22) 


ber eocewese eves ee se seezeececee } 


! Macro Library statistics ! 


$e wenn esr ewewvewreor aw anmanaecces + 


Macro Library name Macros defined 
“$93 8bunss fa a LB; ! 9 
$5eespuAaR Syst IBISTARLET. MLB; 2 26 

Tovacs (all Libraries) 46 


3505 GETS were required to define 46 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMOJOURNL/OBJ=0BJ$:RMOJOURNL MSRC$:RMOJOURNL/UPDATE=(ENHS$: RMOJOURNL) +EXECML$/LIB+LIB$:RMS/LIB 
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